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********************** *************** 
* INTRODUCTORY NOTES * * Section O. 1 * 
********************** *************** 

Version I. 4b April 1978 

I. 4b is the first UCSD PASCAL release which actually supports multiple 
types of processors (in particular the PDP-11 and the 8080/Z80). (There are 
implementations on several other processors/ but none of them are directly 
supported by the PASCAL Project. ) 

As later portions of this document will detail/ the great bulk of the 
system software is written in PASCAL and runs on a relatively simple pseudo- 
machine. If this pseudo-machine is emulated by a machine language program on 
a new real machine/ all the PASCAL software will also run on that new real 
machine. 

So one class of differences among versions of the system is due to 
aspects of the pseudo-machine that are not identically emulated by the 
implementations for different types of processors. Section 0.3 lists the 
differences between the PDP-11 and 8080/280 interpreters. Most of these aTe 
sophisticated and/or relatively unused features that have not yet been 
implemented for the 8080/Z80. 

Another class of differences stems from variations in the system I/O 
environments rather than in the host processor. Included here are differences 
in system console terminal types (eg. hard-copy vs CRT vs storage tube) or 
command conventions and capabilities (eg. "intelligent" vs "dumb" CRT's). The 
system is intended to be able to cope with this sort of variation. The 
utility program "SETUP" (see Section 4.3) is provided to adapt the PASCAL 
system to the idiosyncrasies of the available terminal. Differences in mass 
storage medium (eg. floppy disk vs cartridge disk vs mini-floppy) and 
interface/controller (eg. programmed I/O vs DMA) are harder to deal with. 

In the PDP-11 world these mass storage variations are not too serious/ 
primarily because there is considerable motivation to be compatible with DEC 
devices and media. We have written and support drivers for a few DEC 
incompatibile devices but make no claim to support users who want to develop 
their own such drivers. Section 0.2.1 describes the process of bringing up 
a PDP-11 version of the syst ■> and some of the difficulties that may arise. 

The situation in the 8080/260 world is much more chaotic. It would 
just not be practical for the Project to write and support drivers for the 
vast multitude of S080/Z80 I/O environments that exist. Therefore we have 
chosen to take advantage of the widespread implementation of Digital 
Research's CP/M operating system by structuring the pseudo-machine's I/O 
operations 35 calls on CP/M's Basic I/O Subsystem (BIOS) primitives. 
Therefore/ any I/O configuration on which CP/M has been implemented should 
also be able to support the PASCAL system. 

Our dominant mode of distribution for 8080/Z80 systems will be on 3740 
compatible floppy disks. One of the distributed disks will be Cp/M 
oriented. This disk will be used/ vis a somewhat awkward two-step process/ to 
bring up UCSD PASCAL on a particular CP/M configuration. Section 0.2.2 % 
details this process. It also describes the configuration of a modified BIOS, 
which will better support the needs of the PASCAL system. Finally/ directions 
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are given for making it possible to boot directly to PASCAL rather than 
indirectly through a CP/M program. 

Currently the only specialized 80S0/Z80 environment that uie support is 
the COMPAL 80 with Micropolis mini-floppy drives. Section 0.2.3 describes the 
idiosyncrasies of that environment. 

The final subsection (0.4) summarizes differences among the most 
recent releases of the PASCAL system. 
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* THE FIRST TIME THROUGH * * Section 0. 2. 1 * 
*■*«*#*#*•» *■*•*«•**#***** *##** ******#**#■«•*****•«■ 

Version I. 4 January 1978 

Welcome to UCSD PASCAL. If you put the disk labelled "PASCAL:" 
in your booting drive* went through your normal boot-strapping 
procedurei and were greeted in a similar fashion, you do not need to 
read this document. 

If this is not the case then here are a few of the problems we 
have encountered with 1.3 coming up in strange and foreign lands: 

1. ) Some revisions of the LSI-li refuse to boot with the clock 
running. If you have a suiitchable clock/ turn it off to 
bootstrap; if and when the system greets you with the 
welcome message and the date, turn the clock back on. 

2.) You have Andromeda floppy-disk drives. Currently you 

will be able to use only drive #0 unless the other drives 
have disks in them at bootstrap time. Drives that do not 
meet this condition will appear permanently off-line. 

3. ) You do not have enough memory. The minimum requirement for 

memory is 24K 16-bit words. 

4. ) You have a system configured for RK-05 hard-disk and you 

have an unformatted disk on line. Thv 'igstem will hang 
waiting for a reply from the disk whic cannot be generated 
if the disk is unformatted. Take the tusk off-line and try 
again. 

5. ) We haven't encountered your problem before. Call: 

Institute for Information Systems (714) 452-4723. 
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* 8080/Z80 WITH CP/M h. 3740 DISKS * * Section 0.2.2 * 
ft**************************-******** *******■»*****#*#* 

Version 14. b April 1978 
A discussion of the CP/M implementation of UCSD Pascal follows. 

Booting Pascal 

To first get Pascal running under your version of CP/Mi a two- 
disk bootstrap is used. The first step is to boot CP/M in your usual 
manner. On the CP/M disk distributed with the Pascal system is a file 
called PASCAL.COM. PIP this file over to the booted disk, then execute 
it. 

When the program asks for a Pascal disk/ put the disk labeled 
PASCAL: in drive A and any disk in drive B. The sustem man not boot 
if there is no disk in drive B. or if uou have a 1-drive sustem and 
uour CP/M drivers wait on a reouest to drivg B. Then hit CreturnU. In 
about 15 seconds the Pascal welcoming message should appear. (Note: we 
have discovered that some drives, possibly as a result of being double- 
bufferedi cannot keep up with a 2 to 1 interleaving and hence are 
extremely slow. The bootstrap then may take about 30 or 40 seconds. 
We intend to alleviate this problem in the next release, but persons 
with such drives will have to bear with slow disk accesses for the 
present. ) 

If all has gone well. Welcome to the Wonderful World of Pascal. 
If not. please call to notify us of your problem. 



Modifications to CP/M 

The Pascal system will operate under an unmodified CP/M system. 
but it is advised that you create a special CP/M for use with Pascal in 
order to have Pascal running in the environment it was designed for. 

1. If there is no disk in a drive and an access is made from 
that disk, the driver should not wait to perform that access until a 
disk is inserted, as the Pascal system often attempts to read from 
empty drives when searching for a particular disk. Instead, simply 
return a 1 to indicate a bad I/O operation. 

2. If you have a keyboard interrupt handler, it should 
recognize the character Ccntrl-fH as a "flush-output" toggle and signal 
the character-out routine to gobble any characters until signaled 
again. When it receives another Ccntrl-fH the keyboard handler should 
signal the output handler causing the output handler to resume 
outputting characters sent to it. 

The keyboard interrupt handler should also recognize the 
character tcntrl-s3 as a "stop output" toggle and wait until it 
receives another Ccntrl-s3 before allowing program execution to 
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continue. 

If your keyboard has no alphalock, the input driver can use any 
character not used for some other purpose as an alphalock toggle. 
CCntrl-p], Creturn3. Ccntrl-iD, Ccntrl-sl, Ccntrl-f3, Ccntrl-c3 or any 
character in SYSCOff\ CRTINFO should be excluded from consideration. We 
suggest Ccntrl-a3. 

Pascal expects the tab character (Ccntrl-i3> to cause the 
terminal cursor to advance to the nearest eight column. If the 
terminal does not do this itself* then the driver in the BIOS should. 



Creating a bootstrap on a Pascal disk 

Note: These instructions are for a standard BIOS with 512-byte " 
blocks. For instructions for a non-standard BIOS, reference file 
READ. ME on the CP/M disk in the distribution packet. 

On the CP/M disk are two programs, PGEN.COM and PINIT. ASM. The 
program PGEN.COM is a program used to write out a buffer (which will be 
filled by boot code and BIOS) to track 0. PINIT. ASM is the boot code 
that reads SYSTEM. MICRO from a Pascal disk, loads the BIOS into the 
correct place, and starts the interpreter's boot routine. 

You must ©r*sa*» <« file PBOOT. HEX* wfci;ch utklil. T*aq,wire a slight 
modification of your euvnr-ent BOOT pr-osgmam. BBfflQTT ui-iil'I reside en track 
O, sector 1 and, when executed, will load track 0, sectors 2 thru 13 
into memory starting at location <MSIZE-48>#1024 + 0BA00H, then jump to 
that location. 



? 



You then need to edit PINIT. ASM, changing MSIZE to match your 
system. Assemble the file* creating PINIT. HEX. 

The next step is to stitch together the one-sector boot, the 
Pascal interpreter loader, BIOS, and the program to write this 
information out to sector O. The following is a session with DDT that 
performs all this. This session was used to create a 48K system. User 
input is in lowercase, and comments are off. to the right. 



A>ddt pgen. com 



DDT VERS 1 . 3 
NEXT PC 
0100 0100 



; load PGEN. COM into memory. PBOOT, PINIT, 

t and BIOS will be overlayed into PGEN's 

i data area, after which a memory image will 

> be saved. 



~ipboot48. hex 
-h900 

0900 0900 
~r900 
NEXT PC 
09B0 0000 



i set PB00T48. HEX as input file 

» PBOOT starts at location 0, and we want to 

i read it in at location 900H 

i read in PBOOT 
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-ipinit48. hex 
-h980 BAOO 



C3B0 4F80 
-r4f80 
NEXT PC 
0A7d CAOO 

-ibios48. hex 
-hd80 beOO 
C380 4F80 
-r4f80 
NEXT PC 
0F76 OOOO 
-Ccntrl-cD 

A>save 16 pgen48. com 



j set 'PINIT48. HEX' as input file 

j PINIT starts at location BAOOH in a 48K system 

i (in general <MSIZE-4B)*1024 + BAOOH). and we 

j want it at location 980H 

t read it in 



i and lastly read BIOS into location D80H 



i leave DDT. . . 

i ... and save the program. 



A>pgen48 

PGEN VI. O 

PUT BOOTER?(Y/N)y 

WRITING BOOTER TO DRIVE A. TYPE RETURN 



AGAIN?(Y/N)n 

GET BOOTER? (Y/N)n 

REBOOTING CP/M, TYPE RETURN 



i sample execution of the program. 



; put a Pascal disk (preferably a 
i copy of the master) in drive A 
i before hitting Creturn3. 



put the CP/M disk back in drive A 
before hitting CreturnH. 



A> 
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************* ***************** 
* CDMPAL-80 * * Section 0. 2. 3 * 
************* ***************** 

Version I. 4b April 1978 
The COMPAL-80 implementation of the Pascal system. 

Booting: 

Put the disk labeled PASCAL into drive 0. push the RESET 
buttoni and type F400G. In about 15 seconds the Pascal system should 
greet you. 

Copying a booter: 

The Pascal system uses a slightly different data layout within 
a sector than the standard Micropolis format. For this reason creatine 
a booter and formatting a new disk are done at the same time. Simply 
use the DISKCOPY program supplied with BASIC to copy the disk labeled 
PASCAL onto another mini-floppy. The new disk is now a valid Pascal 
disk with a booter and can be Z(eroed in the filer. 



General: 



i. CCntrl-a] is used as an alphalock on keyboards without such 
a key. 

2. The size of a Micropolis Mod II disk is 600 Pascal blocks. 

3. Up to four disk drives can be supported and are equated to 
Pascal units 9. . 12. 

4. The screen appears as a small Datamedia screen to the 
Pascal system, which means it has erase-eol» erase-eos« 
cursor positioning, etc. 

5. CCntrl-fD and Ccntrl-s] work. 

6. Size of the typeahead buffer is 31 characters. 

7. Output to screen truncates after 64 characters. If WIDTH is 
set to in SETUP, wrap-around occurs. 
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**##****##******************#******■«•*******#***********•>***»*** *#*#**#**##•»*»■«• 
* DIFFERENCES AMONG IMPLEMENTATIONS FOR DIFFERENT PROCESSORS * * Section 0. 3 * 
*##****#*****#«■#*****#*#***»*****************###*****#**#***** **•**#*#*■*»*•*#** 

Version 14. b April 1978 

Differences between PDP11 Pascal and 8080/Z80 Pascal. 

1. The definition of div is different (thereby changing the values 

returned by mod): 

a div b - floor(a/b) 

a mod b = a - b * < a div b > 

2. The following floating point routines are not implemented: 

sini cosi atan. exp> ln< log/ sqt 

3. The I/O drivers are all written for synchronous operation. This 

means that [break} has no effect. CCntrl-s3 and Ccntrl-f] will 
not perform as described unless 

a. you have a keyboard interrupt handler/ and 
this handler is modified as specified below in 
Modifications to CPM . or 

b. you have a CQMPAL-QO system. 

This also means that UNITBUSY. UNITCLEAR, and UNITWAIT are 

meaningless. < In the future it may be possible to use the 
UNITBUSY and UNITCLEAR operations on the keyboard/ but this is 
currently infeasible. ) 

4. The interpreter is called SYSTEM. MICRO instead of SYSTEM. I NTERP. 

5. Neither the CP/M nor the COMPAL-80 implementations have bootstraps 

that are accessible to Pascal, hence the program BOOTER. CODE 
will not work. See the appropriate section of this document 
for instructions on copying and/or creating a bootstrap. 

6. There are no turtle graphics procedures in the interpreter. Users 

with bit— mapped graphics devices are advised to see section 
3.1 of the documenta' ■ on for a Pascal version of DRAWLINE. 
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*********************************** *************** 
* CHANGES MADE IN RECENT RELEASES * * Section O. 4 * 
*********************************** *************** 

Version 14. b April 1978 

S UMMARY OF DIFFERENCES BETWEEN UCSD PASCAL RELEASES 1.3 AND 1.4 

The following additions, improvements and/or corrections apply 
to Version 1.4. Reference the <section #) preceeding each entry for a 
more detailed description. 



PI LE HANDLER 

(2.1) T(ransfers of large files are supported for single-drive 
systems. XFER program is no longer available for this 
purpose. 

(1.2) T(ransfers endangering the directory of the destination 
volume are prefaced with the warning: 

"Risk dir of <VOLID>?" 

(1.2) Similarly the Z(ero command asks for verification: 

"Destroy <VOLID>: ? " (if disk to be zeroed is named). 

(1.2) Z(ero command offers "duplicate directory" option. 

(1.2) "Zero what unit?" has been replaced with "Zero dir of 
what volume?" in the Z(ero command. 

(1.2) '#' followed by <hardware unit number> is interchangeable 
with VOLID throughout the system. 

(1.6) & RESET and REWRITE are intended to replace OPENOLD and 
(2.1.2) OPENNEW respectively, which are being "phased out" of 

the system RESET has an optional second parameter of 

type STRINC. 

(1. 2) h 

(6. TAB 3) RK-05s are supported as Units #9-12. 

(1.2) Date is stored on system disk and remains as set until 
changed by D(ate command. 

( ) Screen is no longer automatically cleared between suc- 
cessive commands in the Filer. Screen erase is ac- 
complished by typing <cp> or <cr>. Suggestion: type 
<sp> before T(ransf erring to CONSOLE device. 

( ) Files are no longer extended by the system if an attempt 

is made to write beyond end-of-file. 
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( ) Blocks and 1 of .TEXT files are not transferred to 

non-block-structured devices. 

<1.2> <cr> no longer indicates default volume. Instead <cr> 
simply returns user to Filer command level. Mote (in 
particular for L, B,E, X,K and Z Filer commands): 
'*' denotes system disk 
': ' (implying empty VOLID) denotes default disk. 

<1.2> When opening files for output with the C<# of blocks>] 
option* '*' substituted for <# of blocks} causes the 
second largest or half the largest area available 
(whichever is bigger) to be allocated. 

E DITORS (Sections 1.3 and 1.4) 

Two different editors are currently provided with the UCSD PASCAL 
system: YALOE and "EDITOR". EDITOR is a substantially more powerful 
(and even easier to use) editor, but it makes some assumptions about the 
run-time environment. 

EDITOR requires a reasonably powerful CRT terminal with the following 
features: * 

ERASEEOS - the capability to erase from the cursor to the end 
of the screen 

ERASEEOL - erase from the cursor to tire end of tb* line 

XYADRESSING - go directly to a given row and column on the screen 



NDFS 



HOME 



- non-destructive forward space (the inverse of back- 
space) 

- goes to upper left-hand corner 



LF _ down one line (and if at the bottom of the screen 

scrolls up) 



RLF 



- reverse line feed (up one line; not required to 
reverse scroll) 



Typing "E" at the main command level will execute the file 
SYSTEM. EDITOR. Selection of either YALOE or EDITOR as' the system editor 
is made in the Filer by Changing the selected file's name to SYSTEM. EDITOR. 

Notes: Currently YALOE can handle larger files than EDITOR In 
future releases EDITOR may handle arbitrarily "large files. 

Proper use of EDITOR requires that the system disk be left 
on-line while editing. 
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DEBUGGER 



(1.5) W(alk. CCrawl and Breakpoint facilities have been 
implemented. 



PASCAL COMPILER 
<1. 6) 



(2.2.6) 

( ) 

(2. 1. 2) 

(2.2.2) 

(2. 2. 2) 

( ) 

(2. 2. 14) 
& (3. 5) 

(2. 2. 1) 



COMPILE-TIME OPTION Changes: 

(1.6) '+' is assumed if neither '+' nor '-' appears 

after the option letter in a compiler-option 

comment. 
(1.6) "L"ist may specify a Cfile name>. 
(1.6) "Q"uiet option is provided to suppress output 

to the CONSOLE device during compilation. 

Standard type INTERACTIVE (vs TEXT) is introduced. 

Standard constant MAXINT = 32j 767 is provided. 

READ(STRING) will read up to the end-of-line character 
and set EOLN(FILEID) true. Subsequent READs of STRING 
variables will return the null string until a READLN or 
READ(CH) is executed. 

Pecularities of .TEXT format (ie. blank compression 
codes and special first page) will be transparent to 
READS and WRITES on files with logical records of type 
CHAR and titles with the .TEXT suffix. 

'<.' and '>' are accepted as comment delimeters in addition 
to '(*' and '*) '. 



'@' notation for pointers is no longer valid. Use 



only. 



Segment procedures may be declared forward succesfully. 
Semicolon before the "END" in a CASE statement is optional. 



(2.2.16) String comparison is lex icographic> eg. 

'ABCD' < 'XYZ' despite comparitive lengths of strings. 

(1.1.2) Typing "E" when an error is found during compilation 
invokes the system editor, whereas previously typing 
<sp> to continue or <esc> to abort were the only 
alternatives. 



PA3IC COMPIL ER 
(1. 7) 



A BASIC compiler is now provided. 
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INTRINSICS 



(2. 1.6) 

&(4. 14) GOTOXY intrinsic is provided for screen cursor addressing. 

(2.1. 2) SEEK instrinsic allows random access to a logical record. 

(2.1.2) Optional fifth parameter to UNITREAD and UNITWRITE is 
now of type INTEGER not BOOLEAN. 

(2.1.2) RESET and REWRITE are intended to replace synonomous 
& (2.2) intrinsics OPENOLD and OPENNEW respectively, which are 

being "phased out" of the system. RESET has an optional 

second parameter of type STRING. 



IMPLEMENTQR S ' G UIDE 

(3. 4) NOTES on the Pascal INTERPRETER are provided. 

(3.6) Files with the reserved suffix .TEXT may include 
blank compression codes. 

UTILITY PROGRAMS 

(4) & Many new UTILITY PROGRAMS have been added. Reference also 
<1-1> the INTRODUCTION and OVERVIEW document (Section 1.1) for a 

brief description. 

INSTRUCTIONAL SYSTEM 

(5) An INSTRUCTIONAL SYSTEM is now provided. 

T ABLES 

(6.6) An ASCII-HEX-OCTAL-DECIMAL table is now provided. 



MISC 



( ) Textual run-time errors are written to CONSOLE device 

provided the system disk is accessible during execution. 
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SUMMARY OF DIFFERENCES BETWEEN UCSD PASCAL RELEASES 1.4 AND I. 4b 



1. The Z80/B0S0 PASCAL system has been released. 

2. A new system file. SYSTEM. MISC INFO, must be present at boot 
time. This file contains information about the terminal attached 
to the system and is the file now written into when the P(ermanent 
command in SETUP is executed. 

3. The compiler is now a separate file. SYSTEM. COMPILER, and has 
had a few modifications made to it: 

a. It will allow the compilation of small programs in 48K 

bytes, as previously claimed. 

b. Formfeeds immediately following a [return] are accepted 

in thp input file. 

c. A semi-colon immediately before the END in a record 

declaration is allowed. 

d. The pre-defined function MEMAVAIL: INTEGER is implemented; 

it returns the number of words available for use 
between the stack and the heap. 

e. The pre-defined procedure EXIT has been extended to 

allow the name of the program as its parameter. 
The old syntax. EXIT (PROGRAM), is still valid. 

4. Formatting of real numbers to ASCII characters has been changed 
(substantially improved). 
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■It**************************** ******#****■**** 
* INTRODUCTION AND OVERVIEW * * Section 1.1 * 
##**HHt**tf ******************** *************** 

Version 1.4 January 1978 
1. INTRODUCTION 



The U. C. S. D. PASCAL system described in the following set of 
documents is a system intended to run on stand alone micro and mini- 
computers. This system is highly machine independent since it runs on a 
pseudo-machine interpreter commonly referred to as the "P-machine". 
Software maintenance and enhancement is made relatively straightforward 
by the fact that, except for the P-machine interpreter (and a few run- 
time support routines for efficiency)* all of the system software is 
written in Pascal. 

The current system now runs on the Digital Equipment 
Corporation PDP 11 series. Implementations for the Zilog ZSO and the 
8080 microprocessor are currently being developed/ expected early this 
year. The system is designed to be used primarily with a CRT terminal 
acting as the CONSOLE device; the system is flexible enoughi however/ 
to be reconfigured for slower hard-copy terminals as well. For further 
information regarding compatab ility between various types of equipment 
and this system see the "SETUP" document in Section 4.3. These 
documents are intended for programmers who are familiar with the PASCAL 
programming language and have some experience in writing computer 
programs. 

The following is a tutorial book on PASCAL: 

Kenneth L. Bowlesi 

(Microcomputer) Problem Solving Using PASCAL 

Springer-Verlag. New York/ <c)1977 

We suggest the following book as a PASCAL reference guide: 

Kathleen Jensen and Niklaus Wirth/ 
PASCAL User Manual and Report 
Springer-Verlagz New York/ <c>1975 



For documentation concerning the differences between U. C. S. D. 
Pascal and Standard Pascal see Section 2. 2. 
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2. U. C. S. D. PASCAL SYSTEM: AN OVERVIEW 

The structure of the U. C. S. D. Pascal system is best 
conceptualized in terms of the "tree-like" structure diagram figure 0.1 
at the end of this sub-sectiion. 

The diagram in figure 0. 1 depicts the outermost level of the 
system. In terms of a "tree" or structure diagram, the "root" 
corresponds to the outermost level, while the "leaves" (i e the boxes 
SII "° b uf n ? heS *° l0WCr levels) correspond to the lower' levels of the 

B ", a Whl e a user ls \ in a P articula ^ ^vel, the system displays a 
J.m««« 3ll ^i e commands called fe "prompt-line". If the system is 
running on a CRT screen type terminal, then the prompt-line will 
usually appear at the top of the screen. Commands are usually invoked 
by typing a single character from the CONSOLE device. For example, the 
prompt-line for the outermost level of the system is: exam Ple. *he 

Command: E<dit, R<un, F(ile, C(ompile, X(ecute, Dtebug, Knit, HCalt 

If the user types "F" he will "descend" a level within th 
structure diagram into a level called the "Filer". Upon enterinq * 
rllll' a \ U5 ! r WiI1 receive another prompt-line detailing the set or 
One o5 thf F^^f ^ailabl. to him at the Filer level of the system. 
?« W* if l eVel commands is <»<uit. This command causes the user 

Kvll o/S; s^t^ 16 ^;^ 1 and . "?*«««" back t0 the -termost command 
level of the system. At this point in time, the user is back to the 
level in the system from there he started after bootstrapping the 
machine. Some commands within the system prompt the user for the name 

nLlT* If".' 1 , 1 '* ,J n thS "" °* these com "> a n^< the user enters thl 
tf.TiJn I' 16 f ° 1 i ou ' ed b « a carriage return. If an error is mlde in 

typing a portion of the file name, then the backspace key (or equ!" 
valent key depending upon the present system configuration) may be used 
to back over" and erase the erroneous part. The delete key (rubout 
key) may be used to erase the entire file name, thereby allowina the 
user to completely start over. If the user decides that he "t 

"llrJ » ! ySte T. t0 aC " pt ang file name whatsoever, then he may 

escape from this command by entering a file name of zero characters; 
»• e. type \.cr>. 

<».. n* !?K t6t x at dU6 ^° a limited amou "t of room on the prompt-line, 
some of the infrequently used commands may not appear on the prompt- 
line For example, in the current release this is particularly true at 

FiL^ III ^^ V J"' ! yStem " <A »«*»»*• »«t of'commands at the 
Filer level may be found in the Section 1.2). 

A concept central to the design of the entire U. C. S D Pascal 
r-« T " mma rf s tructure is the concept of the "workf i le". ' A workfile 
orlrL th ° U ? t ° f " f " s ^atch-pad" area used for development of 
programs The worfcfUe is not necessarily just one file on the user's 
disk, but can be a number of files (usually source & code) which 
together comprise the "workfile". A user is allowed only one workfile 
^nr a *VT tlme - Thorefo " if * «»r wishes to work with a new 
»?™ • ;!' 9 ° ?" t0 9reener P^tures) while at the same time 
preserving the contents of his current workfile, he must » save » the 

uTilrtl °t< tiXe """"J" •"»■-« a ^parate file name on his "ilk by 

oirf Ltol ? co r aT,d ln the Filer levE?1 of the system. Likewise, 
old uorfcfUes may be retrieved from the disk and loaded into the 
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workfile using the G(et command in the Filer level. 

3. OUTERMOST LEVEL COMMANDS: AN OVERVIEW 

A. E(dit 

This command is invoked bg typing "E" while at the outermost 
command level of the system. This command causes the editor program to 
be brought into memory from disk. The user mayi while in the editor, 
insert or delete text inside his workfile, along with many other 
powerful commands. (See Section 1.3 for details. ) The workfile text (if 
present) is read into the editor buffer. 

B. F<iler 



This command places the user in a level 
the Filer. This section of the system contains 
for maintenance of the files stored on the flop 
commands are the L(dir and T(ransfer commands, 
allows the user to list the titles and the last 
well as determine the number of blocks occupied 
disk. The T(ransfer command is used to copy fr 
another» or from one area on a particular disk 
same disk. Also, as mentioned in the OVERVIEW 
commands associated with the "getting", "saving 
user's workfile. (For more documentation on th 
system see Section 1.2 below). 



of the system called 
commands used primarily 
py disk. Some typical 
The L(dir command 
modification date, as 
by each file on the 
om either one disk to 
to another area on the 
section, there are 
". and "clearing" of the 
e Filer level of the 



C. C(ompile 

This command 
the contents of the c 
the program within th 
display the error and 
space, the user can c 
Typing an <esc> will 
level. Typing 'E' wi 
the screen editor, th 
symbol. If the compi 
encountered) a codefi 
user's disk and becom 
on the use of the U. C 



calls the Pascal compiler into memory and causes 
urrent workfile to be compiled. If an error in 
e workfile is detected, the compiler will stop and 
the surrounding text of the program. By typing a 
ause the compiler to resume the compilation, 
cause the compiler to abort & return to C(ommand 
11 call in the editor, and if the system editor is 
e cursot will be placed near the offending 
lation is successful, (i.e. no syntax errors were 
le called SYSTEM. WRK. CODE is written out onto the 
es part of the workfile. (For more documentation 
. S. D. Pascal compiler see Section 1.6.) 



D. R ( un 

This command causes the codefile associated with the current 
workfile to be executed. If no such file currently exists, the 
compiler is called in the same nanner as described in C above. -After a 
successful compilation, the program is executed. 
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E. X(ecute 

This command prompts the user for the filename of a previously 
compiled codefile. If the file exists, the codefile is executed; 
otherwise the message "can't find file" is returned. (Note: the 
".CODE" suffix on such a file is implicit. ) It is convenient to X(ecute 
other programs which have already been compiled because otherwise the 
user would have to enter the Filer. G(et the file, G<uit the Filer, and 
then R(un the program. 

F. D(ebug 

This command causes the current workfile to be executed. If 
the program in the workfile has not been compiled, the compiler will be 
called just as in the case of the RCun command. However if a run-time 
error occurs, or a user-defined break-point or halt is encountered, the 
Debugger program is called. The Debugger is a program which allows the 
user to examine the contents of variables within the program. (Further 
documentation on the interactive Debugger can be found in the Section 
1. 5 below. > 

G. Knit and H(alt 

The Knit command causes the system to re-initialize. 
The H(alt command causes the computer to halt. 

4. UTILITY PROGRAMS INCLUDED IN THIS RELEASE: AN OVERVIEW 

Included in this release of the U. C. S. D. Pascal system is the 
following set of utility programs: 

A. Calculator 

Disk file title: CALC. CODE 



This is a Pascal program which allows a user to use the 
computer as a calculator to make quick mathematical computations. 
Section 4. 1 below for further details. 



See 



B. Linker 

Disk file title: LINKER. CODE 

This is a program used to link together segment procedures 
anc/or functions which have been compiled separately. See Section 4 2 
for further details. 
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C. Setup 

Disk file title: SETUP. CODE 

This is a Pascal program which can be used to reconfigure the 
system for use on different terminals or devices. See Section 4.3 for 
further details. 

D. Boater 

Disk file title: BOOTER. CODE 

This is a Pascal program which copies the bootstrap from any 
one floppy disk to another. This program is designed to be used with 
one disk drive. See Section 4.4 for further details. 

Note: BOOTER. CODE will not work on Z80 or 8080 microprocessors 
because the bootstrap area on those systems is not accessible in 
Pascal. 



The number of utility programs has grown past the scope of this 
sub-section. For a complete list of the utility programs now available 
with your UCSD PASCAL system, reference Section 4 in the Table of 
Contents. Any programs which you write and feel would be a useful 
addition to our library of utilities will be welcomed contributions. A 
separate paper by K. Bowles on Software/Courseware exchange is 
available upon request. This paper proposes a mechanisim for the 
exchange of software and courseware. 
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****************** *************** 
* FILE HANDLER * * Section 1. 2 * 
****************** **************■■:- 

Version I. 4 January 1978 

File Names and Structure 

Files are maintained in 512-byte physical blocks similar to 
those used with the PDPli line of computers. Initially, the layout of 
these blocks on a floppy disk will use alternate 128-byte sectors to 
retain compatibility with PDP11 files. However/ we anticipate using 
the system with high performance floppy disk drives on which adjacent 
sectors may be used) the system will provide this capability as an 
option. Media other than flexible diskettes will be made available as 
the system evolves, such as the RK-05 disk, which the system is capable 
of dealing with in a somewhat limited capacity. 

Each file is stored in a contiguous area of the disk and is 
pointed to by the disk directory. Each file is identified by a. unique 
string of up to 15 characters containing letters of the alphabet, 
digits, and the special character period ("."). Following are examples 
of legal file names: 

WHOPPER 

ONE. TEXT <B characters long) 

ONE. CODE 

ONE. 1. CODE (10 characters long) 

LONG. FILE. NAME 

The system will translate lower case letters to upper case and 
will remove blanks and non-printing characters for storage of a 
directory title. The user may employ the period character to indicate 
hierarchic relationships among files and/or to distinguish several 
related files of different types. If the last identifier following a 
period in a file title is one of several reserved words, the file will 
be assumed to be formatted a — ording to the named file type. For 
example. ONE. A. CODE might be the compiled object code file associated 
with a source program in ONE. A. TEXT. The file types currently defined 
are GRAF. FOTO, BAD, TEXT, and CODE. 

The reserved suffixes for filenames are: 

.TEXT Editor files. Editable, compilable, listable. 

.CODE Code files. Runnable. executable. 

.FOTO Screen image file. Bit data. 

.GRAF Editable vector lists. 

.BAD Nonreadable files. Cannot be moved. 
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Each disk has a Volume Name associated with it. A volume name 
consists of up to 7 alphanumeric characters, The disk from which the 
system is initialized is called the "System Disk", and its volume name 
may be abbreviated "*". 

Non-file structured devices <line printers, terminals, etc. ) 
also have volume names. Thus all I/O occurs to or from 'volumes' 
(which may or may not have individual files). Throughout the system 
(in the file handler as well as user programs) files may be associated 
with actual areas on a disk or with other physical devices. The 
reserved volume names used to refer to these devices are as follows- 



CONSOLE 
SYSTERM 
GRAPHIC 
PRINTER 
REMOTE: 



screen & keyboard with echo 

screen & keyboard without echo 

the graphic 'side' of the screen (for 8510a's) 

the line printer 

for future expansion 



One may define a particular volume to be the 'default volume' 
The P(refix command at the FILE level is used for this purpose It 
allows the user to set the default volume name which is attached to 
filenames. The System Disk is assumed to be the default volume 
immediately after bootloading. The default volume is the volume 
assumed in all file titles where no explicit volume is given The 
syntax for a file name is as follows: 



FILE TITLE 




"*00~*\ v, ^ t * u, "k £ ''' V— ^ 
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This syntax diagram is just like those published with the 
documentation on the PASCAL language. The use of "*" or "*: " 
preceding a file name refers to the system disk. A volume name* if 
given, must be separated from the file name with a ":". 

When specifying file titles for output you may put the file in 
the first area of adequate size by adding C<# of blocks>3 after the 
file name. <# of blocks> is the area size you would like the file to 
fit into. This number can be equal to or larger than the file length. 
If it is zero or omitted then the file will be put into the largest 
empty place available. If <# of blocks> is the character "*". either 
the second largest or half of the largest area available is allocated' 
whichever is larger. (RT-11 users are familiar with this scheme. ) 

All devices that may be on-line have built-in Unit Numbers 
predesignated by the system. Reference Table 3. 



tf*a c2 ' HrS 



File Level Command 



Many of the following commands prompt the user for one or two 
file titles. Responding to any request for a file title by typing just 
a carriage return causes the command to return the user to the F(iler 
level. In the case of commands that permanently alter the state of a 
file, the user may be prompted to verify that the requested action is 
really wanted. If "Y" (for "yes") is typed, the Filer will proceed to 
do the specified action. Any other response to this prompt will result 
in a return to the main File level, with the action not occuring. When 
a volume name is requested. ': ' implies the default prefix volume. '*' 
implies the booted volume. '#n ' implies the volume unit-number n. 

G(et) Opens the requested file with an implicit ".TEXT" suffix as the 
work file. The file with an implicit ".CODE" suffix is also 
gotten if one exists. 

S(ave Removes old file by that name, renames SYSTEM. WRK files to that 
name. 

N(ew> Clears Workspace. 

L<dir) Lists the directory of the volume specified after the prompt. 
'*' infers the root, or booted device. ': ' infers the default 
device, null exits to F(iler. 

C(hange) Changes the title of a file or volume name of a disk to a new 
name. 

R<emove) Removes the indicated file from the directory on the volume. 

NOTE: To remove SYSTEM. WRK. TEXT and/or SYSTEM. WRK. CODE the N<ew 
command should be used, or the system may get confused. 
R(emoving a volume name causes' it to go off-line. 
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T(ransfer> Copies the contents of the first specified file to the 

second specified file. The second specified file is created as 
a new file. Note: Files mag be transfered to volumes that are 
not directory structured, such as CONSOLE and PRINTER, by just 
specifying the volume name followed by a colon ": ". If you 
transfer to a volume with a directory on it by specifying only 
its volume name, i.e. "T VOLA: , VOLB: <cr>", you will be asked if 
you wish to risk the directory of VOLB. This is to ensure that 
you indeed want to transfer the specified source to VOLB:, a 
process which wipes out the current directory of VOLB. Single- 
drive transfers may be accomplished by the following sequence: 

1. > Type 'T' for transfer. 

2. ) Ensure that source disk is in drive. 

3. ) Type source filename <cr>. 

4. ) Wait for prompt "to what file?". 

5. > Ensure that destination disk is in drive. 
6. ) Type destination filename <cr>. 

7. ) Follow prompting messages until F(iler prompt returns. 

D(ate) Displays current date and enables you to change it. The format 
for the date is given in the prompt line. This date will be 
associated with any files saved in the current session and will 
show up by those files when using the L<dir> or E<xtended list) 
commands. The date is stored on the system (*■> disk and 
remains the same until changed with the D(ate command. 

W*hat> Inforims the w*»r if his workfile exists, is saved or not, and what 
its name is. 

Q(uit) Returns the user to the main command level. 

The following commands will not appear on the promptline due 
to lack of space, and it is assumed that they will be used only by 
experienced users: 

P(refix) Changes the current default to the volume specified after the 
prompt. 

M(ake) Allows the user to create a new file under the name given after 
the prompt, followed by the number of blocks wanted within 
square brackets, e.g. MYFILEC20D. This command is useful for 
filling unpleasant gaps in the directory, if you are being 
selective as to where files go. 

V<olumes) Displays the names and associated unit numbers of volumes 
currently on-line. The name of the system volume will be 
preceded by a '*', the default volume by a 'P', and «.ny other 
volume which is directory structured by a '#'. 

B<ad blocks) Checks each block on the indicated volume for 

unrecoverable errors and lists the number of each bad block. 
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E(xtended list) Lists directory in more detail than the L command. All 
files and unused areas are listed along with (in this order) 
their block lengthi last modification date, the starting block 
addressi the number of bytes in the last block of the file, and 
the filekind. 

X(amine) First asks the name of the volume then the block range to be 
examined, (eg. 35-63 or just 18). If any files are in danger 
of being removed by this process, it will inform you of such an 
event and ask if you want to risk losing these files. An 
ensuing scan process reports located bad areas which it wants 
to "mark bad". A Y(es response from the user will initiate 
Making a .BAD file over those areas. 

K(runch) Crunches or compresses the files on the specified volume so 
that free blocks are combined into one area. WARNING: It is 
advisable to do a B(ad block scan, and then if necessary an 
X<amine. prior to Crunching because K<runch will try to move 
unmarked bad blocks and/or put good files into bad areas. Do 
not disturb the disk until K(runch tells you it has completed 
its task. K<runching the system volume may require 
reboots trapping. 

Z(ero) Re-initializes the indicated volume by zeroing out the directory 
and giving the disk a new name. You will be prompted for the 
volume to zero; reply with a volume name or equivalent unit 
number (type "#n"> of the disk to be zeroed. If it has a name. 
Tegardless of how you specified it, you will be asked "Destroy 
dir?"» verifying that you indeed want to zero this disk. 
You will also be asked "Duplicate Dir? M . This is an option 
available for disks upon which you want to keep a redundant 
copy of the directory. Specifying yes (typing "Y"> at this 
time will cause the directory of this disk to be written in two 
locations every time the directory is written out. This option 
makes recovery from directory failure an easier task. The 
consequence of this is a slight slowing of the system at 
directory writing time. You will be asked to enter the size of 
the volume (you will be given s clue as to what number to 
enter). Then you will be asked for the new name of the disk 
and asked to confirm it one more time. Finally the new directory 
gets written onto the disk. 
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— Notes — 
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# SCREEN ORIENTED EDITOR * * Section 1. 3. 1 * 
Version 1.4 January 1978 

In troduction 

The Scope of This Docume nt 

This document describes the Screen Oriented Editor (Version 
CE. 43). The purpose of the document is to provide for the user of the 
Editor an introduction and a reference. The document itself is divided 
into four sections. The first is this introductory section which 
describes the philosphy behind what the Editor does. The second is a 
tutorial section for the novice. While the Editor is designed to handle 
any files, the tutorial section uses a sample program to demonstrate 
how to use the most basic commands to modify a file. The third section 
contains a detailed description of each command with examples. The 
fourth section is a quick reference section. 

The Concept of a 'Window' on the Prooram 

The Screen Oriented Editor is specifically designed for use 
with Video Display Terminals. Two of the chief properties of those 
terminals are: 1) that they display a fixed amount of material at a 
timei that is. one screenful; and 2) that they are readily updated. The 
Editor is designed to take as much advantage of those display 
properties as is possible and in particular to use the updating 
property to keep in front of the user the current status of the portion 
of the program near which he is working. On entering any file the 
Editor displays the start of the file in the upper left corner of the 
screen. If the file is so long that it will not all fit onto the screen 
only the first portion appears. The whole file is there but you can 
only see a portion of it through the 'window' of the screen. Indeed the 
whole file is accessible by the Editor commands and when any Editor 
command takes the user to a position in the file which is not 
displayed/ the "window" is updated to show a portion of the file near 
the place to which the user has moved. 

The Concep t of a Cursor 

Moving around in the file is done with the use of the cursor. 
The cursor represents your exact position in the file. The window you 
arc able to see is a portion of the file which is near the cursor. To 
see another portion of the file you merely move the cursor. Action 
always takes place at the cursor. Some of the commands permit 
additions, changes or deletions of such length that the screen cannot 
hold the whole portion of the text which you have changed. In those 
cases the portion of the screen where the cursor stopped is displayed. 
In no editing cabe is it necessary for the user to operate on portions 
of the text he cannot see on the screen, but in some cases it is 
optional. 
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The Concept of a Prompt Line 

The Editor, consistent with the rest of the Pascal System, 
displays a prompt line as the top line of the screen. The purpose of 
the prompt line is to remind the user of the current mode and the 
options available for that mode. Onlg the most commonly used options 
appear on the prompt line. The entry or Command level of the Editor 
displays the following prompt line: 

>Edit: A<djost C<py DUete F(ind Knsrt J(mp Rplace QCuit Xtchng Z(ap CE. 4D 
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*************##*#** ft**************** 
* GETTING STARTED * * Section 1.3.2 * 

Getting Started with the Screen Oriented Editor 

Entering the Workf ile and Getting a Program 

When you first come into the Editor you may be asked: 

No workfile is present. File? < <ret> for no file > 
You may answer this question two ways: 

1) With a name <like "STRINGl<ret>" ). This means that you wish 
to get a file from your disk so you can modify (edit) it. 

What you see on the screen after typing the name is a copy of 
the text of the first part of the file. For example if your disk had a 
file called STRING1 which contained a program called STRING1 and after 
the "No workf ile. .. " prompt line you typed "STRINGKreO", the program 
shown in Figure 2. 1 could appear on the screen. 

Figure 2. 1 

PROGRAM STRING1; 
BEGIN 

WRITE < 'TOD WISE'); 

WRITE ( 'YOU ARE'); 

WRITELNC, '); 

WRITELN( 'TOO WISE'); 

WRITELN< 'YOU BE') 
END. 

2) With a <return> <this is called <ret> on the prompt line). 
This means that you wish to start an entirely new file from scratch. 

The only thing visible on the screen after doing this is the 
editor prompt line. You have started a new workfile and currently have 
nothing in it. You will probably wish to type "I" and start inserting a 
program or text of your own design. 

Workfiles: If a workfile already exists then no questions are 
asked. The workfile is displ yed and can be modified. The workfile can 
be cleared so that you can start a file by using the N)ew command in 
the Filer. 

Moving the Cursor 

As mentioned above: the cursor is the center for all editing 
activity. Therefore in order to edit, it is necessary to move the 
cursor. There are many commands that move the cursori we will start 
with the simplest. On your keyboard are four keys with arrows (they 
look may like triangles) on them. These four keys will move the cursor. 
The <up~arrow> will move the cursor up one linei the <r ight-arrow> 
will move the cursor right one space and so forth. 
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BTB ,^ ( If « ou tr « experimenting with the cursor in a program such as 
STRING1 you ui 1 1 notice that the cursor does not like to be outside of 
the text of the program. For example if you are after the "N" in 
•BEGIN" (sec Figure 2.2 below) and push the <r ight-arrow>, you will 
Hu „,•„ the cursor moves to the " w " ^ "WRITE". Similarly if you are at 
the « W - m "WRITECTOO WISE ' ) , " and use <left~arrow> you will move to 



after the "N" in "BEGIN" 
Figure 2. 2 



BEGIN 

WRITE < 'TOO WISE '); 

BEGIN 

WRITECTOO WISE '); 



Let us go through the cursor moves needed to get ready to 

?w di «,H D ?Z^ NG1 to Write SMART instead °* WISE. You will want to change 
the "WRITECTOO WISE ' ) ; " found in the third line to a "WRITECTOO 
SMART ');". To do this you must get the cursor to the right spot. 

For example: if the cursor is at the "P" in "PROGRAM STRING1; " 
You need to go down two lines, so, press the down arrow 2 times To 
mark the positions the cursor occupies they are labeled a, b. c in Figure 
7 ^ S J* initial position of the cursori "b" is where the cursor 

is after the first <down-arrow>; «c" is after the second <down- a rrm„> 



ure ,2. .3 



aROGRAM STRING1 

bEGIN 

C WRITE( 'TOO WISE '); 



„* «utcp» m I y J°i! "? m ° Ve Xt t0 the ri9ht until ** sits at the »W» 
of "WISE". Note that with the use of <down-arrow> the cursor appears to 
be outside the text. Actually it is at the "W" in "WRITE", so do not be 
«R" P In S "WRITE". °" tyPi " 9 ^ *"** <left ~ aTT0 ^ the ""or jumps to the 

Using Knsert 

The next thing you wish to be 




appear on the screen: 



mpt line should 
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Mnsert: text -C<bs> a char,<del> a line> E<etx> accepts, <esc> excapes] 

If that prompt line did not appear at the top of your screen 
you are NOT in insert mode and cannot insert. You may have typed a 
wrong key. 

Assuming you were at the "W", did properly type "I" and got the 
insert prompt line now you may insert "SMART" by typing the five 
letters "SMART". They will appear on the screen as you type them. 

Now there remains one more important step. You have the choice 
indicated at the end of the prompt line: you can push the <etx> key and 
accept the insertion, or you can push the <esc> key and the insertion 
will disappear. 

Figure 2.4 (Screen after typing "SMART") 

BEGIN WRITE ('TOO SMART WISE ')i 

Figure 2. 5 (Screen after <etx>) 



BEGIN 

WRITECTOO SMARTWISE ')j 



Figure 2.6 (Screen after <esc>) 



BEGIN 

WRITE( 'TOO WISE '); 



It is legal to insert a carriage return. This is done by typing 
<return> while in the INSERT mode. It causes the Editor to start a new 
1 ine. 

Usino D(elete 

The DELETE mode works like the INSERT mode. Having inserted the 
SMART into the STRING1 program and having pushed <etx> you now wish to 
delete the WISE. Step 1 is ^o move the cursor to the first of the items 
you wish to delete. Step 2 is to type a "D" to put the Editor into 
DELETE mode. The fallowing prompt line should appear: 

>Delete: < > <Moving commands> -C<etx> to delete, <esc> to abort> 

Now every time you type <space> a letter will disappear. So in 
our example typing 4 spaces will cause the "WISE" to disappear. Then 
you have the same choice as in insert. You can type <etx> and the 
proposed deletion is made or you can type -Cesc> and the proposed 
deletion reappears and remains part of the text. 

As in insert it is legal to delete a carriage return. Go to the 
end of the line, enter DELETE mode, and <space> until the cursor moves 
to the beginning of the next line. 

At this point you have learned sufficient commands to edit any 
file you desire. There are many more commands in the Editor which make 
editing easier. These are described in the next section of this 
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document. 

leaving the Editor and Updating the Uorkf ile 

~aa+- Whe " M0U haVe finall « finished making all the changes and 
It lti° nS J°* U t eSXTe y ° U wiX1 U,i5h t0 exit the Editor and "save" a cop 
SLt !„? J J!! d pr °J ram - The Editor Prompt line shown above reminds u 
that one of the options is "Q" for Q<uit. 



Typing »Q» will cause the prompting display shown in Figure 2.7. 
Figure 2. 7 
>Qu .. t - . 

U(pdate the workfile and leave 
ECxit without updating 

R(eturn to the editor without updating 
W(rite to a file name and return 

The most elementary way to save a copy of your modified file nn 

i:£d Sit; x typ M u : * or u(pdate - This " n "°" "- i be 

ZZlL* 1 the workfxle thus saved it is possible to use the R(un 

command (provided of course your file is a program). It is also 
possxble to use the S<ave option in the Filer to save your mo3i?ied 

Inolher Kil ^^ bef '° re y ° UUSe the Editor to modi ^ " «"i- 
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************************************ ***************** 
* DETAILED DESCRIPTION OF COMMANDS * * Section 1.3.3 * 
♦ft********************************** ***************** 

£\ Detai led Description of Each Command uiith Examples 

INTRODUCTION 

Command level: The outer or entrance level of the Editor is 
called the Command level. From this level each of the Editor commands 
can be reached. Whenever you enter or return to the Command level the 
Editor redisplays the "Edit: " prompt line shown in section i. 

Certain options affect many commands. For conciseness these are 
grouped together in this introduction. Detailed descriptions of the 
commands follow this introduction. These are grouped in the following 
scheme: First the moving commands (cursor moving commands* Jump* Page, 
Equals), second the text changing commands (Insert. Delete, Zap. Copy, 
exchange), third the Find and Replace commands, fourth the formatting 
commands (Adjust, Margin), and fifth the miscellaneous commands (Set, 
Verify and Quit). 

Command and Mode: At the Command level there are many options. 
For convenience we will refer to some of these options as commands and 
some of them as modes depending upon the appearance of a prompt . If an 
option executes a task and returns control to the Command level we will 
call that option a command. If an option issues a prompt and gives the 
user another level of options we will call that option a mode. 

Repeat-factors: Many of the commands allow repeat-factors. A 
repeat-factor is applied to a command by typing a number immediately 
before issuing the command. The execution of the command is repeated 
for the number of times indicated by the repeat-factor. For example: 
typing "2 <down-arrow>" will cause the <down-arrow> commmand to be 
executed twice moving the cursor down two lines. Commands which allow a 
repeat-factor assume the repeat-factor to be 1 if no number is typed 
before the command. 

The cursor: It should be remarked that the cursor is never 
really "at" a character. The cursor is only allowed to be "between" 
characters. When we say the cursor is at the letter "R" it is actually 
between the letter "R" and the letter in front of it. You can notice 
this most clearly on the insert command when it inserts in front of the 
character the cursor was "at". On the screen the cursor is placed "at" 
"R" when it is really before "R" to make it easier to display. 

The <arrow> keys: The four keys which this document refers to 
as <up-arrow>, <down-arrow>/ -Clef t-arrow> and <.right-arrow> are 
implementation dependent. The implementor of the PASCAL system has the 
option using the utility program SETUP, which is described in the User 
Documents, to redefine the keys of his choice as the keys the Editor 
takes to be the <arrow> keys. Consult local documentation in case of 
such a redefinition. 
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Direction: Certain commands are affected by direction. If 
direction is forward then they operate forward through the file. 
Forward is the standard direction of reading English. If the direction 
is backward then they operate in the opposite direction through the 
file. When direction affects the command it is specifically noted. 
user may change the direction by typing the appropriate commands. 

MOVING COMMANDS 



the 



The 



Basic moving commands: 



<down-arrow> 
<up— arrow> 
<righ t-arrow> 
•Clef t-arrow> 
"<" or ", " or 
«>■• or •>. ■< or 

<space> 

<back-space> 

<tab> 

<return> 



Moves down 

Moves up 

Moves right 

Moves left 

Changes the direction to backward 

Changes the direction to forward 

Moves direction 

Moves left 

Moves direction to the next position which is a multiple 

of 8 spaces from the left side of the screen 
Moves to the beginning of the next line 



The arrow <"<" or '■>") in front of the prompt line always 
indicates the direction. "<" indicates backward and ">" indicates 
forward. On entering the Editor the direction is forward. The direction 
can be changed whenever you type the appropriate command and the 
"Edit:" prompt line is present. The period and the comma are all 



change direction because on many standard keyboards, 
for ">" and ", " is the lower-case for "<". 



owed to 
lower— case 



Repeat-factors can be used with any of the above c 



ommands. 



The Editor, for user convenience, maintains the column position 
of the cursor while you are using <up~arrow> and <down-arrow>, however, 
when the cursor is outside the text, the Editor treats the cursor as 
though it were immediately after the last character (or before the 
first) in the line. 

Jump 



JUMP mode 
This is indicated 
the following prompt line appears: 



is reached by typing "J" while at the Command level, 
on the prompt line by "J<mp". On entering JUMP mode 



>JUMP: B(eginning E(nd MCarker <esc> 



You may jump to the beginning of a file by typing "B", to the 
of a file by typing "E" or to a marker in the file 
(or "E"> jumps you to the beginning (or end) of 

displays the edit prompt line. Typing "M 

the prompt line: 



end 
"B" 



by typing "M". 
the file and 
causes the Editor to display 
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Jump to what marker? 

You must enter the name of the marker followed by a <return>. 
The Editor u/ill then move the cursor to the place in the file with that 
name. If the marker is not in the file the Editor will display: 

ERROR: Marker not there. Please press <space bar> to continue. 

Of course to be able to jump to a marker you first must Set the 
marker. See the SET mode for how to do this. 

Page 

PAGE command is executed by typing "P" while at the Command level. 

PAGE command moves the cursor one whole screenful up or down 
depending on the direction of the arrow at the beginning of the prompt 
line. The cursor moves to the start of the line. A <repeat-f actor> may 
be used before this command to go several pages. 

Equals 

EQUALS command is executed by typing "=" while at the Command level. 

EQUALS command causes the cursor to jump to the beginning of 
the last string which was inserted, found or replaced. An INSERTi FIND 
or REPLACE cause the absolute position of the beginning of the 
insertion, find or replacement to be saved. Typing "=" causes the 
cursor to jump to that position. 



TEXT CHANGING COMMANDS 
Insert 

INSERT mode is reached by typing "I" while at the Command 
level. This is indicated on the prompt line by "Knsrt". On entering 
INSERT mode the following prompt line appears: 

>Insert: Text «bs> a char.<del> a line> C<etx> accepts. <esc> escapes} 

As described in section 1.3.2 one of the options here is to type 
text followed by <esc> or <etx>. If you have inserted a character which 
you didn't want, it is possible to get rid of it without leaving the 
INSERT mode by back-spacing over it. The INSERT prompt line indicates 
this by "<bs> a char". If you want to get rid of the entire line which 
you just typed, type <del>. The INSERT prompt line indicates this by 
"<del> a line". 

When you type <return> INSERT starts a new line at the level of 
indentation specified by the options you have turned on in Environment 
section of the SET mode. See the section on the SET mode for to how set 
these options. 
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Auto-indent: 

If Auto-indent is True a <return> causes the cursor to start 
the next line with an indentation equal to the indentation of the line 
above. If Auto-indent is False a <return> returns the cursor to the 
next line at the first position. Note: if Filling is True the first 
position is what you set as the Left-margin. 

Filling: 

If Filling is True then the Editor will insist that all your 
insertions are between the right and left margins by automatically 
inserting <return>'s between "words" whenever you would have otherwise 
exceeded the right margin and by indenting to the Left— margin whenever 
a new line is started. The Editor considers anything between two spaces 
or between a space and a hyphen to be a word. 

If both Auto-indent and Filling are True then Auto-indent 
controls the Left-margin while Filling controls the Right-margin. In 
any case you can directly change the level of indentation by using the 
<space> and <backspace> keys immediately after a <return>. Important: 
you can do this only immediantly after a <return>. 

Example 1: With Auto-indent on the following sequence creates 
the indentation shown in Figure 3. 1. 
"ONE M ,<return>, <space>, <space>, "TWO", 
<return> ( "THREE", <return>, <backspace>, "FOUR". 

Figure 3. 1 

ONE Original indentation 

TWO Indentation changed by <space> <space> 

THREE <return> causes auto-indentation to level of line above 

FOUR <backspace> changes indentation from level of line above 

Example 2: With Filling True (and Auto-indent False) the 

following sequence creates the indentation shown in Figure 3.2: "ONCE 

UPON A TIME THERE- WERE". (Very narrow margins have been used for 
simplicity. ) 

Figure 3. 2 

ONCE UPON A Auto-returned when next word would exceed margin 

TIME THERE- Auto-returned at hyphen 

WERE 

Level of left margin 
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Filling also causes the Editor to adjust the margins on the 
portion of the paragraph following the insertion. Any line beginning 
with the Command character (see SET mode) is not touched when filling 
does this adjustment and that line is considered to terminate the 
paragraph. 

The direction does not affect the INSERT mode, but is indicated 
by the direction of the arrow on the prompt line. 

If you make an insertion and accept it that insertion is 
available for use in the COPY mode. If you enter the INSERT mode and 
<esc> there is no string available for COPY. 

Delete 

DELETE mode is reached by typing "D" while at the Command 
level. This is indicated on the prompt line by "Ddete". On entering 
DELETE mode the following prompt line appears: 

>Delete: < > <Moving commands> «etx> to delete. . <ese> to abort) 

When you enter DELETE, the Editor remembers where the cursor 
is. That position is called the anchor. The object for you is to 
bracket the text you want to delete between the cursor and the anchor 
using the normal moving commands. As you bracket text it will disappear 
from the screen. To accept the deletion, type <etx>; to escape, type 
<esc>. 

If you type <etx> the Editor saves everything which was 
deleted for COPY to use; if you type <esc> the copy buffer is empty. 

Example: 
In Figure 3. 3: 

i> Move the cursor to the "E" in END. 

2) Type "<" (This changes the direction to backward) 

3) Type "D" to enter DELETE mode. 

4) Type <ret> <ret>. After the first return the cursor moves to 

before the "W" in WRITELN. The line WRITELN( 'TO BE. '); disappears. 
After the second return the cursor is before the W in WRITE and that 
line has disappeared. 

5) Now press <etx>. The pro 3 ram after deletion appears as is shown in 
Figure 3. 4. 

The two deleted lines have been stored in the copy buffer and 
the cursor has returned to the anchor position. Now we may use the COPY 
routine to copy the two deleted lines at any place to which we move the 
cursor. 
Figure 3. 3 

PROGRAM STRING9i 
BEGIN 

WRITE( 'TOO WISE '); 

WRITELN( 'TO BE. ') 
END. 
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Figure 3. 4 

PROGRAM STRING2: 

BEGIN 

END. 



The ZAP command is executed by typing "Z" while at the Command 
level. This is indicated on the prompt line by "Z(ap". 

This command deletes all text between the start of what was 
previously found/ replaced or inserted and the current position of the 
cursor. This command is designed to be used immediately after one of 
the FIND, REPLACE or INSERT commands. If you are zapping more than 80 
characters you are asked to verify. 

Repeat-factors and Zap: If you do a FIND or a REPLACE with a 
repeat factor and then ZAP, only the last find or replacement will be 
zapped. All others will be left as found or replaced. 

Whatever you have deleted by using the ZAP command is available 
for use with the COPY command. 

Copy 

The COPY command is executed by typing "C" while at the Command 
level. This is indicated on the prompt line by "C(py". 

On executing the COPY command the Editor immediately copies the 
contents of the copy buffer into the file at the location of the cursor 
when "C" was typed. On the completion of the copying the cursor returns 
to immediately before the text which was copied. Use of the COPY 
command does not change the contents of the copy buffer. 

The copy buffer is affected by the following commands: 

DDELETE: If you have accepted a deletion the buffer is loaded 
with what you have deleted; if you have escaped from a deletion the 
buffer is loaded with what would have been deleted if you had accepted. 

2)1NSERT: If you have accepted an insertion the buffer is 
loaded with what you have inserted. If you have escaped from an 
insertion the copy buffer is empty. 

3>ZAP: If you have used the ZAP command the buffer is loaded 
with what you have deleted. 

The copy buffer is of limited size. Whenever you have deleted so much 
text that the buffer will not hold all of it. The Editor will warn you 
upon your typing <etx> with the line: 
There is no room to copy the deletion. Do you wish to delete anyway? (y/n) 
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Exchange 

EXCHANGE mode is reached by typing "X" while at the Command 
level. This is indicated on the prompt line by "XCchng". On entering 
EXCHANGE mode the -Following prompt line appears: 

>eXchange: TEXT «bs> a char> C<esc> escapes; <etx> accepts] 

EXCHANGE mode replaces one character in the file for each 
character of Text you type. For example in the file in Figure 3. 5 with 
the cursor at the "W" in WISE, typing "X" to put you in EXCHANGE mode/ 
followed by typing "SM" will replace the "W" with the "S" and then the 
"I" with the "M" leaving the line as shown in Figure 3.6 with the 
cursor before the second "5". 
Figure 3. 5 Figure 3. 6 

WRITE<'TOO WISE ' ) ; WRITE( 'TOO SMSE '); 



Typing a <back-space> (<bs>) will back the cursor one character 
and cause the original character in that position to reappear. As with 
most other commandsi when in EXCHANGE mode- <esc> leaves the mode 
without making any of the changes indicated since entering the mode. 
while <etx> makes your changes part of the file. 

Note: You mau not tupe past the end of the line o r tupe in a 
carriaoe return. 

FIND AND REPLACE 

In both modes the use of a <repeat-factor> is valid. The 
<repeat-factor> appears in brackets on the prompt line. 

Strings: Both modes operate on delimited strings. The Editor 
has two string storage variables. One/ called <targ> by the prompt 
lines/ is the target string and is referred to by both commands and the 
other/ called <sub> by the prompt line/ is the substitute and is used 
only by REPLACE. The following rules apply to both these strings. 1) 
The terminating delimiter of the string will be the second occurance of 
the delimiter used as the st -ting delimiter. For example: when in 
REPLACE mode the following command is valid and will replace the first 
occurance of the character "C" with the character "1": "-CCO 3 > ". Here 
"<" and ")" are the delimiters. 

Delimiters: The Editor considers any character which is not a 
letter or a number to be a delimiter. <space> is a particularly common 
del imiter. 

Direction: If the direction is forward/ both modes will operate 
from the point at which the cursor is toward the end of the file. If 
the direction is backward both will operate from the point at which the 
cursor is toward the beginning of the file. If the direction is 
backward the target pattern will be found if the beginning of the 
pattern is at or in front of the cursor. 



Page 43 



Literal and Token mode: If you are in Literal mode the Editor 
Tl Kl°1 f ° r occurances °* the target string. If qou are in Token mode 
the Editor will look for isolated occurances of the target string The 
Editor considers a string isolated if it is surrounded by any 
combination of delimiters. For example, in the expression below the 
string "HEIGTH" is isolated by the delimiters "=" and "#". 

AREA: =HEIGTH*WIDTH; 

I* you wish token mode you type -T» after the prompt line and before 
the target string. If you wish Literal mode you type "L" in the same 
place. If you do not type either value the mode will be set to the 
default value found in the Environment. If the default value is Literal 
the prompt line will remind you that if you wish Token you must type 

will rp»^S yln L"I <0k "- X V hS defaUlt V3lue is Token the Prompt line 
will remind you that you must type "L" if you wish Literal mode bu 

tnll hHih g " , , ,L ! 1 *";.. T0k ! n 1 .?? de 'S™™ 5 s P* ces with i" strings. In token 
mode both »( '. )•■ and »('.')" are considered to be the same string. 

The Same option: In both commands you may type "S" instead of 
any of the delimited strings. The "S" indicates to the Editor that it 
r.D C /^ USB ^ he SamB strin 9 as Previously used. For example, typing 

RS/<any-strmg>/" causes the REPLACE mode to use the previous target 
string, while typing "R/<any-string>/S" causes the previous substitute 
string to be used. 

Find 

. F1 " D m ° d ! is reached by typing «F" while at the Command level. 
It l S indicated on the prompt line by "F(ind". On entering Find mode 
one of the prompt lines in Figure 3.7 appears. 



Figure 3. 7 

>FindC13: L(it <target> => 

>Findtl3: T(ok <target> => 

- 4.- The .r i ^ D m ° de finds the n ~ th occu rance of the <tarqet> string 
starting with the current position and going in the current direction 
The number 'n» is the <repeat-f ac tor> and is shown on the prompt line 
in the brackets "CD". The arrow at the beginning of the prompt line 
always gives the current set direction. 

„ „ • J! xamplt 1: In tf 'e STRING1 program with the cursor at the first 

"'WrIt'e^Su muTtu T Th """■ I' 6 " ^^ "" P ™ mpt "PP«" "M 

now a ear Is single quote marks. The prompt line should 

>FindC13: Dit <target> =>'WRITE' 
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When you type the last quote mark the cursor will jump to immediately 
after the "E" in the first WRITE. 

Example 2: In the STRING1 program with the cursor at the "E" of 
"END." type: "<" "3" "F". This will find the 3rd ("3") pattern in the 
reverse ("<") direction. When the prompt line appears type /WRITELN/. 
The prompt line should read: 

<FindC33: Oit <target> =>/WRITELN/ 

The cursor will move to immediately after the "N" in WRITELN. 

Figure 3. 8 

PROGRAM STRING1; 
BEGIN 

WRITE( 'TOD WISE '); 

WRITE( 'YOU ARE'); 

WRITELN( ', '); 

WRITELN< 'TOO WISE '); 

WRITELN< 'YOU BE. ') 
END. 



UCURSOR FINISHES IN THIS LINE*) 



<*CURSOR STARTS IN THIS LINE*) 



Example 3: On the first find we type "F/WRITE/". This locates 
the first "WRITE". Now typing "FS" will make the prompt line flash: 

>FindC13: Dit <target> =>S 

and the cursor will appear at the second WRITE. 

Replace 

REPLACE mode is reached by typing "R" while at the Command 
level. This is indicated on the prompt line by "R)place". On entering 
REPLACE mode one of the two prompt lines in Figure 3.11 appears. In 
this example we have assumed that a <repeat-factor> of four was 
entered. 

Figure 3. 9 

>ReplaceC43: L(it V(fy <targ> <sub> => 

>ReplaceL4D: T(ok V(fy <targ> <sub> => 



Example 1: Type "RL/GX//YZ/" which make the prompt line appear as: 

>ReplaceC13: Dit V)fy <targ> <sub> =>L/QX//YZ/ 

This command will change: "VAR SIZEQX; INTEGER. " to "VAR 
SIZEYZ: INTEGER; ". If we had not been in a literal mode it would not 
have found the string OX because it is not a token. It was part of the 
token SIZEQX. 
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Example 2: In Token mode REPLACE ignores spaces between tokens 
when looking for patterns to replace. For example if you had the lines 
on the left hand side of Figure 3.9 and you typed: "2RT/(', ')/. LN. " 
The prompt line should appear as: 

>Replace: Dit V)fy <targ> <sub> =>/(',')/. LN. 

and immediately after you typed the last period it would change those 
two lines to those on the right hand side of Figure 3.10. 

Figure 3. 10 

WRITEC '); WRITELN; 

WRITE( ', '); WRITELN; 

V>fy: The verify option permits you to examine each occurance 
of the <targ> string (up to the limit set by the repeat factor) and 
decide if that occurance is to be replaced. The following prompt line 
appears whenever REPLACE mode has found the <targ> pattern in the file 
and verification has been requested: 

>Replace: <esc> abortsi 'R' replaces. ' ' doesn't 

Typing an "R" at this point will cause a replacement; typing a 
space will cause the REPLACE mode to search for the next occurance 
provided the repeat factor has not been reached. The repeat factor 
counts the number of times an occurance is found, not the number of 
times you actually type "R". 



FORMATTING COMMANDS 
Ad just 

ADJUST mode is reached by typing "A" while at the Command 
level. This is indicated on the prompt line by "A<djst". On entering 
ADJUST mode the following prompt line appears: 

>Adjust: L<just RCjust C(enter <left, right, up, down-arrows> «etx> to leave* 

The ADJUST mode is designed to make it easy to adjust the 
indentation. On any line you may use the <r i gh t-arrow> and <left-arrow> 
commands to move the whole line. Each time you type a <r i ght-arrow> the 
whole line moves one space to the right. Each <lef t-arrow> moves it one 
to the left. When you have the line adjusted to the desired indentation 
press <etx>. You cannot <esc> from this mode. 

In writing a PASCAL program you may find yourself with a whole 
sequence of lines to adjust. For example when you find you need an 
additional BEGIN -END sequence you mill want to adjust all the lines 
in between two spaces to the right. This is done easily. Adjust one 
line, then use <up-arrow> <<down~arrow>) commands and the line above 
(below) will be automatically adjusted by the amount of adjustment on 
the line from which you came. 
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Repeat-factors are valid 
commands while in ADJUST mode. 



when used before any of the <arrou»> 



Example: Starting with the cursor anywhere in the line 
"WRITEC'TOO WISE ');" of the program shown in Figure 3.11, type the 
series of commands: "A". <r ight-arrow>» <down-arrow>i <down-arrow>, 
"3"<right-arrow>i "2", <down-arrow>. <etx>. The adjusted text is shown in 
Figure 3. 12. 

Figure 3. 11 

PROGRAM STRING2; 
BEGIN 

WRITE< 'TOO WISE ')) 

WRITE< 'YOU ARE'); 

WRITELN( '. '); 

WRITELNC 'TOO WISE '); 

WRITELNC 'YOU BE') 
END. 



Figure 3. 12 



PROGRAM STRING2; 
BEGIN 

WRITE( 'TOO WISE '); 
WRITEC 'YOU ARE'); 
WRITELN( ', '); 
WRITELN( 'TOO WISE 
WRITELN( 'YOU BE') 
END. 



A <right-arrow> adjusts this line right one 

Adjusted by amount of the above line on <dcwn-arrow> 

Adjusted one by line above and 3 by "3", <right-arrow> 

'); Adjusted four by line above on "2", <down-arrow> 

Also adjusted four by "2". <down-arrow> 



ADJUST mode can also center or justify text. Typing "L" while 
in ADJUST mode will cause the line to be left-justified to the margin 
set in the Environment. Similarly typing "R" right-justifies to the set 
margin and typing "C" will cause the line to be centered between the 
set margins. Typing <up-arrow> (or <down-arrow>> will cause the line 
above (below) to be adjusted to the same specification (left-justified, 
right-justified or centered) as the previously adjusted line. 

Marq in 

MARGIN command is executed by typing "M" while at the Command 
level. MARGIN is an Environment dependent command, that is. it may only 
be executed when Filling is -et to True and Auto-intent is set to 
Fdise. The prompt for the MARGIN command does not appear on the 
">Edit: " line. 

There are three parameters used by the command: Right-margin. 
Left-margin and Paragraph-margin. MARGIN deals with one paragraph and 
realigns the text to compress it as much as possible without violating 
the above three margins. See the Environment option under the SET mode 
for how to set the margin values. 
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Example: The paragraph in Figure 3. 13 has been MARGINed with 
the parameters on the left while the same paragraph in Figure 3. 14 has 
been MARGINed with the parameters on the right. 



Left-margin 
Right-margin 72 
Paragraph-margin B 



Left-margin 10 
Right-margin 70 
Paragraph-margin 



Figure 3. 13 



This quarter, the equipment is different/ the course materials 
are substantial 1 y different, and the course organization is different 
from previous quarters. You will be misled if you depend upon a friend 
who took the course previously to orient you to the course. 



Figure 3. 14 



This quarteri the equipment is different, the course materials are 
substantially different* and the course organization is 
different from previous quarters. You will be misled if you 
depend upon a friend who took the course previously to 
orient you to the course. 



A paragraph is defined to be something occuring between two 
blank lines, to MARGIN a paragraph move the cursor to anywhere in that 
paragraph and type "M". If you are doing an exceptionally long 
paragraph it may take several seconds before the routine is ready to 
redisplay the screen. 

Command Characters: Portions of the text can be protected from 
being MARGINed by the use of the Command character. If the Command 
character appears as the first non-blank character in a line then that 
line is protected from the MARGIN command. The MARGIN command treats a 
line beginning with the command character as though it were a blank 
line, that is. it will consider that line to terminate (begin) the 
paragraph. Warning: Do not use the MARGIN command when in a line 
beginning with the Command character. 

MISCELLANEOUS COMMANDS 
Set 

SET mode is entered by typing "S" while at the Command level. 
The prompt for the SET command doss not appear on the ">Edit: " prompt 
line due to space limitations. On entering the SET mode the following 
prompt line appears: 
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>Set: M<arker Environment <esc> 

M(arker: 

When you are editing it is particularly convenient to be able 
to jump directly to certain places in a long file. The Editor enables 
you to set markers into your file at places of your choosing. Once you 
have set these markers it is possible to jump to them using the M<arker 
option in the JUMP mode. When in the SET mode you type "M" for fHarker, 
the following prompt line appears: 

Name of marker? 

At this point you will wish to enter the name of the marker. 
You may enter any string followed by a <return>. The marker will be 
entered at the position of the cursor in the texti therefore, first 
move the cursor to the desired position then set the marker. (If the 
marker already existed, it will be reset.) 

Figure 3. 15 

PROGRAM STRING 1 
BEGIN 

WRITE< 'TOO WISE ')i 
END. 

Example: With the cursor at the position shown in Figure 3. 15 
and with the Editor at the Command level, the following commands 
illustrate the setting of a marker. The lower case character 
represents the position of the cursor. 



You type: 

"S" 
"M" 
"* GOOet>" 



Prompt line displays: 

>Edit: A(djst 

>Set: M(arker Environment <esc> 
Name of Marker? 
>Edit: A<djst 



After the <return> the cursor goes back to its original place 
in the text and the marker has been set. Having set the marker, you may 
JUMP from any place in the f^le to the marker named "# GO" and the 
cursor will move directly to the "W" in "WRITE". 

Environment: 

There are several different uses for editing on the computer. 
Text editing and program editing are the two chief ones. Certain 
options make it more convenient to write programs while other options 
make it more convenient to edit text. The Editor enables the user to 
set the environment which the user determines to be most convenient for 
him. When in the SET mode you type "E" for Environment, the screen 
display is replaced with the following prompt shown in Figure 3.16. 
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Figure 3. 16 



Environment: 



■Coptions> <etx> or <sp> to leave 
A(uto indent True 
False 

79 
5 



Ftilling 
L(eft margin 
R(ight margin 
P(ara margin 
C(ommand ch 
T(oken def 



True 



7436 bytes used. 12020 available 

Patterns: 

<target>= 'xyz'. <subst>= 'abc' 




The Options: 
A<uto indent: 



Auto-indent affects only the INSERT mode of the Editor Auto- 
m*y be set to True (turned on) by typing "A", "T". Auto-indent 

by typing "A", "F". 



indent . . _ _ . 

may fee set to False (turned off) 



FUlling: 

to funrf^i 11 ^!?^"? 5 thG INSERT m0de and allows the MARGIN command 
to function. Filling is set to True (turned on) by typing »F», »T" It 
is set to False by typing "F", "F". vh*"B r i • it 

LCeft margin 
R(ight margin 
P(ara margin: 

«« ■ "l! 6 "/ 1 !:! 1 " 9 is True the «*T-gin« set in the Environment are the 
Tftl rthe' X Cent G ^Y he l^^ "° de *"* ™* MARGIN command. ? he y a Is! 

usfn^the tettJrs "R-^d^P^^roo^rt ^" T^™ '" d0ne »*»"«»« 
four'digits are valL Margin vales' ^ ^"^ " lth le55 th *" 



va 



lues: AS Sn e *™ 9le y0U COuld set the options to the following 
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L(eft margin 10 
R(ight margin 60 
P(ara margin 

C(ommand ch: 

The Command character affects the MARGIN command and the 
Filling option in the INSERT mode as described in those sections. You 
may change Command characters by typing "C" followed by any character. 
For example typing "C"i "*" will change the Command character to "*". 
This change will be reflected in the prompt. 

TCoken def: 

This option affects FIND and REPLACE. Token is set to True by 
typing "T", »T" and to False by typing "T". "F". If Token is True then 
Token is the default. If Token is False then Literal is the default. 

Verifu 

The VERIFY command is executed by typing "V" while at the 

command level. Verify permits you to verify the status of the Editor by 

causing the screen display to be updated. The Editor attempts to adju't 

the window so that the cursor is at the center of the screen. 

Qui t 

QUIT mode is reached by typing "Q" while at the Command level. 
This is indicated on the prompt line by "Q(uit". On entering QUIT mode 
the screen display is replaced by the following prompt: 

Figure 3. 17 

>Quit: 

UCpdate the workfile and leave 
E(xit without updating 

R<eturn to the editor without updating 
W(rite to a file name and return 

You must select one of the four options by typing U. £, R or W. 

U(pdatc: 

This causes you to leave the Editor after writing the file you 
have just modified into the workfile. The file is stored as 
SYSTEM. WRK. TEXT and is available for either the Compile or Run options 
or for the Save option in the Filer. The Filer treats SYSTEM. WRK. TEXT 
as text file. 

E<xit: 
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in Rvcn-p! uL ?r? ^ t0 l6aVe the Editor witho "t dicing any changes 
in SYSTEM. WRK. TEXT. This means that any modifications you have made 
since entering the Editor are not recorded in the permanent workfil. 



le 
Le. 



R(eturn: 



This option returns you to the Editor without updating The 
typed «Q«. Usually this command is used after unintentionally typing 

W<rite: 

This option puts up a further prompt: 

Figure 3. 18 

>Qu i t : ~~ "~~~~ 

Name of output file <<cr> to return) — > 

a „,. *•■, Y ° U are J! able t0 caose *h e Editor to write the modified file to 
any f n e name of your choosing. If you cause it to write to the name of 
an existing file the modified file will replace the old file. After the 
file has been written to the disk, the EDITOR will ask you to enter 
Ejxit or R(eturn. If you R<eturn the cursor is returned to the exact 
place of typing ■■©». This command can be aborted by typing a carriage 
return instead of a file name. Aborting will return you to the Editor 
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* REFERENCE SECTION * * Section 1.3.4 * 



Reference Section 

<down-arrow> moves <repeat— f actor> lines down 



<up-arrom> 

<r ight~arrow> 

<lef t-arrow> 

<space> 

<back-space> 

<tab> 

<return> 
it ^11 ii it ii ii 

ii *^ M it ii ii + it 

• I S3 11 



" lines up 

" spaces right 

" spaces left 

" spaces in direction 

" spaces left 
moves <repeat-f actor> tab positions in direction 

moves to the beginning of line <repeat-factor> lines in directio 
change direction to backward 
change direction to forward 

moves to the beginning of what was just found/replaced/inserted/ 
exchanged 



ACdjust: Adjusts the indentation of the line that the cursor is on. Use 
the arrow keys to move. Moving up (down) adjust line above 
(below) by same amount of adjustment on the line you were on. 
Repeat-factors are valid. 

C(opy: Copies what was last inserted/deleted/zapped into the file at 
the position of the cursor. 

D<elete: Treats the starting position of the cursor as the anchor. Use 
any moving commands to move the cursor. <etx> deletes 
everything between the cursor and the anchor. 

F(ind: Operates in Diteral or T>oken mode. Finds the <targ> string. 

Repeat-factors are validi direction is applied. "S" = use same 
string as before. 

I(nsert: Inserts text. Can use <backspace> and <del> to reject part of 
your insertion. 

J(ump: Jumps to the beginning, end or previously set marker. 

MCargin: Adjusts anything between two blank lines to the margins which 
have been set. Command characters protect text from being 
margined. Invalidates the copy buffer. 

P<age: Moves the cursor one page in direction. Repeat-factors are 
valid i direction is applied. 

Q(uit: Leaves the editor. You may U)pdate» E)xit/ W)rite< or R)eturn. 

R(eplace: Operates in L(iteral or Ttoken mode. Replaces the <targ> 
string with the <subs> string. V(erify option asks you to 
verify before it replaces. "S" option uses the Same string as 
before. Repeat-factors replace the target several times. 
Direction is valid. 
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S(et: Sets M<arkers by assigning a string name to them. Sets 

Environment for A< uto-indent, Ffilling, margins, T<oken, and 
Cioitimand characters. 

V(erify: Redisplays the screen with the cursor centered. 

eX<change: Exchanges the current text for the text you type in while in 
this mode. You can only do one line. <bac k-space> cause the 
original character to re-appear. 

Z)ap: Treats the starting position of the last thing 

found/replaced/inserted as an anchor and deletes everything 
between the anchor and the current cursor position. 

<repeat-factor> is any number typed before a command. Typing a / is the 
infinite number. a 
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* YET ANOTHER LINE ORIENTED EDITOR - YALOE * * Section 1.4 * 



Version I. 4 



January 1978 



This text editor is intended for use on sgstems that do not 
have powerful screen terminals. It is designed to be very similar to 
the text-editor which accompanies DEC's RT-11 system. 

The editor assumes, but is not dependent on. the existence of 
the workfile text. Upon reading it YALOE will proclaim 'workfile STUFF 
read in'. If it does not find such a file, it will proclaim 'No work 
file read in'. This means that you entered YALOE with an empty 
workfile. From this point you may create a file in YALOE; and when you 
exit by typing 'QU'. your workfile will no longer be empty. 



The editor operates in one of two modes: 
Mode. In command mode all keyboard input is int 
instructing the editor to perform some operation 
the editor you will be in the Command Mode. The 
whenever the user types a command which must be 
string. After the command F(ind, G(et, Knsert, 
file. WCrite to file, or eX(change has been type 
characters are considered part of the text strin 
typed. Note: when typed <esc> echoes a '$'. Th 
text string and causes the editor to reenter the 
point all characters are again considered comman 



Command Mode or Text 
erpretted as commands 
When you first enter 

Text Mode is entered 
followed by a text 

M(acro define. R(ead 
d. all succeeding 
g until an <esc> is 
e <esc> terminates the 

Command Mode, at which 
ds. 



NOTE: 
execute them, 
commands. ) 



Follow command strings in YALOE with <esc><esc> to 
<This is unlike the rest of the systems 'immediate' 



SPECIAL KEY COMMANDS 



Various characters have special meanings, as described below. 
Some of these apply only in YALOE. Many have similar effects in the 
rest of the system; for these the ASCII code to which the system 
responds as indicated can be changed using the program SETUP, described 
in Section 4.3. <<esc> is the most particular anomaly to YALOE. ) 



<esc> 



RUDOUT 
<linedel> 



CTRL H 
<chardel> 



Echoes a '*'. A single <esc> terminates a text string. 
A double <esc> executes the command string. 

Deletes current line. On hard-copy terminals echoes 
'<ZAP ' and a carriage return. On others, it clears 
the current line on the screen. In both cases the 
contents of that line are discarded by the editor. 

Deletes character from the current line. On hard- 
copy terminals it echoes a percent sign followed by 
the character deleted. Each succeeding CTRL H the 
by the user deletes and echoes another character. 
An enclosing percent sign is printed when a key other 
than CTRL H is typed. This erasure is done right to 
left up to the beginning of the command string. 
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CTRL X 



CTRL 



CTRL F 
<flush> 

CTRL S 
<stop> 



CTRL H may be used in both Command and Text mode. 

Causes the editor to ignore the entire command 
string currently being entered. The editor 
responds with a <cr> and an asterisk to 
indicate that the user mag enter another 
command. For example: 

* I DALE AND 
KEITH-CC1RL X> 
« 

lul! a lrl« ?h° ld I*"** dSieti0n of ° nl y KEITH. CTRL X 
would erase the entire command. 

Will switch you to the optional character set 
<i.e. bit 7 turned on). This works only on the 
TERAK 8510A. The CTRL is used as a tJggJe 
between the character sets. NOTE: You may find 
while in the editor that weird characters are 
showing up on the terminal- instead of normal 
ones^ It could be because you accidentally 
typed CTRL 0. To get back just type CTRL 
again. 

All output to the terminal is discarded by the system 
until the next CTRL F is typed. ^ 

rrl °* t ? Ut „ t0 the terminal *« "eld until another 
CTRL S is typed. 



All other control characters are ignored and discarded by YALOE. 



COMMAND ARGUMENTS 



» i+ .h= / ? ™ ffla " d argument precedes a command letter and is used 

ss& .^.xr -r— ;L->^r-"-,;--i^L- 



Command arguments are as follows: 

n n stands for any integer. 



" "■"« tor any integer. It may be preceded by a + or - 
If no sign precedes n, it is assumed to be a positive number 
Whenever an argument is acceptable in a command, Us absence' 
implies an argument of 1 ( or ~ t if only the _ . p^^^) 



m 



m is a number 0. . 9. 



'0' refers to the beginning of the current line. 
/ 



V means 32700. '-/' means -32700 It is u 
repeat factor. 



sed for a large 
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'«' is used only with the J. D and C commands and 
represents -n. inhere n is equal to the length of the 
last text argument used, for example *OTHIS*=D** 
finds and removes THIS. 



COMMAND STRINGS 

All EDIT command strings are terminated by two successive <esc>s. 
Spaces/ carriage returns and tabs (CTRL I) within a command string are ignored 
unless they appear in a text string. 

Several commands can be strung together and executed in 
sequence. For example: 

«B GTHE INSERTED* -3CING* 5K GSTRING$* 



As a rule< commands are separated from one another by a single 
<esc>. This separating <esc> is not needed/ however* if the command 
requires no text. Commands are terminated by a single <esc>; a second 
<esc> signals the end of a command string/ which will then be 
executed. When the execution of the command string is completei the 
editor prompts for the next command with '*'. 

If at any point in executing the command, an error is 
encountered, the command will be terminated, leaving the command 
executed only up to that point. 



THE TEXT BUFFER 

The Text Buffer is where the current version of your text is 
stored. This buffer's area is dynamically allocated; its size and the 
room left for expansion may be found out by using the ? command. 

The editor can only wrrk on files that fit entirely within the 
Text Buffer. The Screen Oriented Editor in the next major release will 
not have this limitation. 

THE CURSOR 

The "cursor" is a logical entity which is where, in your text, 
the next command will happen. In other words it is the current 
"pointer" into the Text Buffer. Most edit commands function with 
respect to the cursor: 

A. B. F, G. J: Moves it. 

D. K: Remove text from where it is. 

U. I.R: Add text to where it is. 

C. X: Remove and then odd text at it. 

L. V: Print the text on the terminal from it. 
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INPUT/OUTPUT COMMANDS 

L<ist, V<erify, W<rite, R<ead. QCuit. E<rase, and 

The L(ist command prints the specified number of lines on the 
console terminal without moving the cursor. 

*-2L$* Prints all characters starting at the second 

preceding line and ending at the cursor. 

* 4L ** Prints all characters beginning at the cursor 

and terminating at the 4th <cr>. 



*OL** 



Prints from the beginning of the current line up 
to the cursor. 



The V(erify command prints the current text line on the 
terminal. The position of the cursor within the line has no effect and 
the cursor is not moved. No arguments are used. The v(erifu command 
is equivalent to a OLL (list) command. ° 



The WCrite command is of the form 
*W<file title>* 



i ,., F i 1 rt title is any l89al file title as decribed in Section 1 2 

less the file type. The editor will automatically append a ' TEXT'' 

n< L ° tpvt^^t^!^ 9iV6n Unl " S the file *i«. «d. with '. ', 
* '• \ ". f the filensffle ends ^ a '. ', the dot will be 



l. ^, T he W(rite command will write the entire Text Buffer to a file 
by the given file title. It will not move the cursor nor alter the 
contents of the Text Buffer. e 



If there io no r< 

OUTPUT ERROR. HELP! 



ir +K „ „;! *?"• 10 . no room for the T ext Buffer on the volume specified 
in the file title given, the message: H 



?t 1 L b a S nS;h"r e voluL t . " •"" P ° SSibl6 *° ^ ^ J °** *»**" «* *"> -"ing 

The R(ead command is of the form 
*R<file title>$ 

r*»'*. * T !! e ! di ! 0r Wil1 attem P t to "««» the file title as given If it 
can't find it it appends a '.TEXT' and tries again. 
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The R(ead command inserts the specified file into the Text 
Buffer at the cursor. The cursor remains in the Text Buffer before the 
text inserted. If the file read in does not fit into core bufferi the 
entire Text Buffer will be undefined in content/ i.e. this is an 
unrecoverable error. 

The Q(uit command has several forms 

QU Quit and update by writing out a new SYSTEM. WRK. TEXT 
QE Quit and escape session; do not alter SYSTEM. WRK. TEXT 
GR Don't quit; return to the editor 
Q A prompt will be sent to the terminal giving all the 

above choices; enter option mnemonic <U< Ei or R) only. 

Executing the QU command is a special case of the write 
command, and the attempt to write out SYSTEM. WRK. TEXT may fail. In 
this case use the W command to write out your file and then QE to exit 
the editor. 

The QR command is used on the occasions when a Q is accidentally 
typed, and you wish to return to the editor rather than leave it. 

The E(rase command (intended for CRT terminals) erases the 
screen. 

The command <also intended for CRT terminals) can be used to 
have the context around the cursor displayed on the screen each time 
the cursor is moved. The argument of the command determines the size 
(# of lines) in that context. This option is initially disabled when 
the editor is entered and can be enabled by issuing an command. A 
second command disables the option; succeeding 'O's successively 
enable, disable etc. The cursor is denoted as a split in the line. 



CURSOR RELOCATION COMMANDS 

J(ump. A(dvance. B(eginning< G(et» F(ind 

When using character and line oriented commands, a positive (n or -t-n) 
argument specifies the number of characters or lines in a forward direction, 
and a negative argument the number of characters or lines in a backward 
direction. The editor recognizes a line of text as a unit when it detects a 
<cr> in the text. 

Carriage return characters are treated the same as any other 
character. For example assume the cursor is positioned as indicated in the. 
following text ( A represents the current position of the cursor and does not 
appear in actual use. It is present here only for clarification): 
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THERE WAS A CROOKED MAN A <CR> 

AND HUMPTY DUMPTY FELL ON HIM<CR> 

The UCump command moves the cursor over the specified number of 
charecters in the Text Buffer. The edit command -4J moves the cursor back 4 
characters. 

THERE WAS A CROOKED"^ MAN<CR> 

AND HUMPTY DUMPTY FELL ON HIM<CR> 

The command 10J moves the cursor forward 10 characters and places it 
between the 'H' and the 'U'. p 

THERE WAS A CROOKED MAN<CR> 

AND H-HJMPTY DUMPTY FELL ON HIM<CR> 

The ACdvance command moves the cursor a specified number of lines 
The cursor is left positioned at the beginning of the line. 



line. 



Buffer. 



Hence the command OA moves the cursor to the beginning of the current 

THERE WAS A CROOKED MAN<CR> 
~AND HUMPTY DUMPTY FELL ON HIM<CR> 

The command — 1A (or -A) moves the cursor back one line. 

~THERE WAS A CROOKED MAN<CR> 
AND HUMPTY DUMPTY FELL ON HIM<!CR> 

The Beginning command moves the cursor to the beginning of the Text 



Search commands are used to locate specific characters or strinas of 
characters within the Text Buffer. 




*BGSTRING$=J*$ This command string will look for the string 
STRING starting at the beginning of the Text 
Buffer; and if found it will leave the cursor 
immediately before it. 
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TEXT MODIFICATION COMMANDS 

Knserti Dtelete/ KlilL C(hange, eX<change 

The Knsert command causes the editor to enter the TEXT mode. 
Characters are inserted immediately following the cursor until an <esc> is 
typed. The cursor is positioned immediately after the last character of the 
insert. Occasionally with large insertions the temporary insert buffer 
becomes full. Before this happens a message will be printed on the console 
terminal. 'Please finish'. You should then or as soon as possible type two 
successive <esc>s. To continue. type I to go back into the Text mode. 

NOTE: Forgetting to type the I command will cause the text entered to 
be executed as commands. 

The D(elete command removes a specified number of characters from the 
Text Buffer, starting at the position of the cursor. Upon completion of the 
command, the cursor is left at the first character following the deleted text. 

*-2D#* Deletes the two characters immediately preceding 

the cursor. 

*B*FHOSE *=»D** Deletes the first string 'HOSE ' in the text 
Buffer, since =D used in combination with 
a search command will delete the indicated 
text string. 

The K(ill command deletes n lines from the Text Buffer, starting at 
the pasition of the cursor. Upon completion of the command, the cursor is 
left at the beginning of the line following the deleted text. 

*2K$* Deletes characters starting at the current 

cursor position and ending at (and including) 
the second <CR>. 

«/K«* Deletes all lines in the Text Buffer after the 

cursor. 

The Cthange command replaces n characters, starting at the cursor, 
with the specified text string. Upon completion of the command, the cursor is 
left immediately following the changed text. 

#OCAPPLES$* Replaces the characters from the beginning of 
the line up to the cursor with 'APPLES', 
(equivalent to using OX). 

*BGHOSE*= : CLIZARD$$ Searches for the first occurrence of 'HOSE' in 

the Text Buffer and replace it with 'LIZARD'. 

The eX(change command exchanges n lines, starting at the cursor, with 
the indicated text string. The cursor is left positioned after the changed 
text. 
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#-5XTEXT** 



*OXTEXT*$ 



*/XTEXT$$ 



Exchanges all characters beginning with the 
first character on the 5th line back and ending 
at the cursor with the string 'TEXT'. 

Exrhanges the current line from the beginning to 
the cursor with the string 'TEXT', (equivalent 
to using OC). 

Exchanges the lines from the cursor to the end 
of the Text Buffer with the text 'TEXT'i 
(equivalent to using /C>. 



OTHER COMMANDS 

S(ave, U(nsave. M(acro, N (macro execution) and '?' 

R„** a ^ The S(ave command copies the specified number of lines into the Save 

?onl!nt! «* Ik 9 t t h l ^ rSOr ' The CUr50r P° sit i°" does not change, and the 
contents of the Text Buffer are not altered. Each time a S(ave is executed, 
the previous contents of the Save Buffer, if any, are destroyed. If executing 
the S(ave command would have overflowed the Text Buffer, the editor will 
generate a message to this effect and not perform the save. 

• 4- 4.. T £ 6 ^ ( » S ^ e con " nand inserts the entire contents of the Save Buffer 

nserted I?! ^JI'Ik"* *•* CU I" r - Th * CUrS ° r " left P°*^°™* before the 
inserted text. If there is not enough room in Text Buffer for the Save 

unsave! ° T Wl11 9enerate a mes *ase to this effect and not execute the 

The Save Buffer may be removed with the command OU. 

i,< = ,,4.-*- T !!\ M< ?;: r0 - C ! mmand ,.i S USed to define macros. A maximum of ten macros, 
identifaedby the integer (0. . 9) preceding the 'M', are allowed. -The default 
The ntacro command is of the form: 

mM'/.command stringX 



number is 1. 



,,»,„„ This says to store the command string into Macro Buffer number m, 
a?wlus m th! til optional integer 0. . 9. The delimiter, >%• in this example, is 
always the first character following the M command and may be any character 
which does not appear in the macro command string itself The second 
occurrence of the delimiter terminates the macro. 

strinn *" c ^racters except the delimiter are legal Macro command 
string characters, including single <esc>s. All commands are legal in a 
macro command string. Example of a macro definition- 

*5MXGBEG I NS=CEND BEG I N*V*%** 



Page 62 



This defines macro number 5. When macro number 5 is executed, it will 
look for the string 'BEGIN', change it to 'END BEGIN'i, and then display the 
change. 

If an error occurs when defining a macro, the message 
'Error in macro definition' 
will be printed, and the macro will have to be redefined. 

The execute macro command. N. executes a specfied macro command 
string. The form of the command is: 

nNm* 

Here n is simply any command argument as previously defined) m is the 
macro numbeT (an integer O. . 9) to be executed. If m is omitted. 1 is 
assumed. Because the digit m is technically a command text string, the N 
command must be terminated by an <esc>. 

Attempts to execute undefined macros cause the error message 'Unhappy 
macnum'. Errors encountered during macro execution cause the message 'Error 
in macro'. Errors encountered in macro command syntax cause the message 
'Error in macro definition'. 

The ? command prints a list of all the commands and the sizes of the 
Text Buffer, Save Buffer, and available memory left for expansion. 
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SUMMARY OF ALL COMMANDS 

n - an argument m - macro number 

nA: Advance the cursor to the beginning of the n th line from the 
current position. 
B: Go to the Beginning of the file. 
nC: Change bg deleting n characters and inserting the following 

text. Terminate text with <esc>. 
nD: Delete n characters. 

E: Erase the screen. 
nF: Find the n th occurrence from the current cursor position of 

the following string. Terminate target string with <esc>. 
nG: Get - ditto - 
H: — invalid - 

I: Insert the following text. Terminate text with <Cesc>. 
nJ: Jump cursor n characters. 
nK: Kill n lines of text. If current cursor position is not 

at the start of the line, the first part of the line remains. 
nL: List n lines of text. 
mM: Define macro number m. 
nNm: Perform macro number m, n times. 
nO: On; off toggle. If on. n lines of text will be displayed 
above and below the cursor each time the cursor is moved. 
If the cursor is in the middle of a line then the line will 
be split into two parts. 

The default is whatever fills the screen. Type to turn off. 
P: - invalid - 

Q: Quit this session, fallowed by: 

U: (pdate Write out a new SYSTEM. WRK. TEXT 
E: (scape Escape from session 
R: (eturn Return to editor 
R: Read this file into buffer (insert at cursor)! 
'R' must be followed by <Cfile name> <esc>j 
WARNING: If the file will not fit into the buffer, the 
content of the buffer becomes undefined! 
nS: Put the next n lines of text from the cursor position into the 
Save Buffer. 
T: - invalid - 

U: Insert (Unsave) the contents of the Save Buffer into the text 

at the cursor.- does not destroy the Save Buffer. 
V: Verify: display the current line 
W: Write this file (from start of buffer); 

'W' must be followed by <filename> <esc>. 
nX: Delete n lines of text, and insert the following text; 
terminate with <esc>. 
Y: - invalid - 

2: - invalid - 



Page 64 



************************ *************** 
* INTERACTIVE DEBUGGER * * Section 1. 5 * 
************************ *************** 



Version I. 4 



January 197B 



To facilitate the debugging of Pascal programs, an interactive 
debugger is included in the system. In order to use it is recommended 
that two compiler options be turned on in your program. 

The first is "D+" which causes conditional halts to be 
generated. These halts are necessary for use of the Crawl. Walk or 
Breakpoint commands. The other is "L+". which causes a compiled source 
listing of your program to be written to your disk. The debugger uses 
this file, SYSTEM. LST. TEXT, while in the CRAWL and WALK mode or when a 
breakpoint is executed. "D+" causes a slightly larger codefile to be 
created. "L+" requires space on disk, but these options can be turned 
on and off repeatedly, allowing one to surround troublesome pieces of 
code, without generating extremely large code or listing files. 

Sample program to be debugged: 



1 1 


I 1:D 


1 


(**D+, L+*> 


2 1 


I 1:D 


1 


PROGRAM BUG; 


3 1 


t 1:D 


3 


VAR I: INTEGER j 


4 1 


I 1:D 


4 




5 3 


L 2:D 


1 


PROCEDURE DIVOi 


6 1 


L 2:D 


1 


VAR J: REAL; 


7 1 


[ 2:C 





BEGIN 


8 1 


I 2*C 





J := 5 / I; 


9 1 


L 2*C 


11 


END (* DIVO * 


10 1 


1 2:C 


26 




11 1 


I 1: C 





BEGIN 


IS 3 


I 1*C 





I := 0; 


13 1 


L 1*C 


7 


DIVO; 


14 


L 1*C 


11 


END <* BUG *) 



The source listing above of program BUG is interpreted as 
follows: The first number of each line is the line number, the second 
is the segment number and the third is the procedure number. The letter 
after the colon or star indicates whether the offset represents a code 
<'C) or data ('D') offset. When a star '*' appears after the procedure 
number it means that that line has at least one conditional halt 
associated with it; otherwise a ':' appears. If the offset is a code 
offset, it represents the offset in the code segment for that procedure 
of the first instruction generated for that line. If the offset is a 
data offset the number represents the word offset in the data area 
where storage for that line of the procedure begins. 
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To use the debugger type D(ebug instead of R(un at the system 
command level. The program will be compiled if necessary, and the 
debugger will print a message with the release number and date of 
release. 

PASCAL INTERACTIVE DEBUGGER -January 1978 

You will be in the EXAMINE mode and its prompt will be 
displayed In EXAMINE mode you can peruse portions of memory, set or 

lllll J>I. 6 u ^'rplu, reS r e - eXeCUti ° n ° r exit your Program. You may also 
enter WALK or CRAWL mode m which your program will be executed one 
statement at a time. To begin execution you have three options: 

1) RCesume -runs program normally until a BREAK or breakpoints 

are encountered or a non-fatal run time error occurs. 

2) C(rawl -executes program on a one statement at a time basis, 

waiting for input from you between steps. 

3> WCalk -executes program one statement at a time at an 
adjustable rate. 



CRAWL MODE 

*i:»*- BmB S Ti <° r * t0 ? xecutio * °f ^ statement, information about that 
statement is displayed. If SYSTEM. LST. TEXT exists, the compiled 
listing line containing that statement is displayed, otherwise the line 
•. the segment and procedure # the statement is in, and the code off." 
?wo options": lnStrUCtlon of the statement i« print.d. You then have 

o! * UP * ^ a !*\ if y0U wish to execu *e the line and continue 
2) type G to leave the CRAWL mode and enter the EXAMINE mode 



WALK MODE 

«t«fe.».nJ h f! mod V s similar to CRAWL in that information about each 
loutulV'U* Jo S o o a int J u!,V ri 7 *° e * ecution •♦ th.t statement. When 
or the screen * * PT ° mpt WiU appear on the to P lin * 

DELAY: 

thi. ac ih inte E Sr should the " be entered, and the debugger will use 
each sLteLnT il\° h """"^ ( °" *" LSI - In to dela « beLeen e ecuting 

in PDP-Jl IJIt.««> J" pro 'T*\ *" thG BREAK key <sometim es unreliable 
in r-UP li systems) to get back to the EXAMINE mode. 
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EXAMINE MODE 

NOTE: To use this mode and to aid in debugging a program with 
the debugger it is almost a necessity to have a compiled source listing 
of the 'bugged' program in order to find names of variables with their 
offsets, the numbers belonging to procedures and the code offsets for 
each line in the program. 

In EXAMINE the following will be displayed when the divide by zero occurs 
in the program BUG. ( One way to get to this point is to use the Rfesume 
command and then type [space} when prompted to do so. ) 



>EXAMINE: 1. 


.9 


(links. M(ove. 


, <, >, L(ink. D(ata. SCtack. H<eap 


E(rase» U(pd 


at: 


b, <ctrl-U(p>, 


<ctrl-D(own>» C<rawl. W(alk, R<esume, <esc> 


Proc 2 


Ca 


Her 1 Parent 1 Param Data 2 


Seg 1 
Brkpnts: 
TYPE ID 




Seg 1 


Seg 1 Stack 10 IPC 9 Deptn 






Defaultlink = Dynamic 




PROC# OFFSET 


ADDR INTEGER OCTAL HEX LO HI CHAR 


Data 
Data 

* 




2 1 


116560 -25228 116564 9D74 164 235 t? 




2 2 


116562 000000 0000 000 000 ? < 



Floating point overflow/underflow 



The cause of entering the EXAMINE mode is displayed on the 
bottom line of the screen. It is either some type of execution error, a 
user break, termination of CRAWLING or WALKING mode, or execution of a 
breakppinted statement. In this case it was a floating point error <a 
divide by zero to be specific). 
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The procedure in which the error occurred is given by PROC and 
the SEG# below it. Here there are 2 and 1 respectively. This can be 
seen from looking at the source listing, to be procedure DIVO. The 
caller of DIVO and its parent are the same: the main body of BUG. In 
BUG, as in most user programs, the main body is procedure #1, in seq#l. 
When you are moving up and down the dynamic or static chains PROC and 
SEG refer to the procedure you're at in the dynamic chain (the current 
procedure) and CALLER and PARENT are in reference to this procedure. 

The amount of memory <in words) allocated for this procedure's 
PARAMeters is 0, the STACK size is 10 words (The current release may be 
inaccurate) and the DATA segment is 2 words. The STACK portion is the 
evaluation stack where values are put during expression calculations by 
the compiler. The DATA area is used for storage of declared variables 
and any temporary variables generated. For more detailed explanations 
refer to section 3. 5 in the documentation. INTRODUCTION TO THE PASCAL 
PSEUDO-MACHINE. The procedure DIVO has one local variable, R: REAL 
declared which takes two words in memory because it is REAL. By looking 
at the source listing you can see that J is stored starting at offset 
1. and then by looking at offsets 1 and 2 in the memory display area of 
the screen you can see the value of U. To determine just where the 
value of a variable is stored (i.e. its offset) one must understand the 
algorithm the compiler uses. Consider, for example the following 
declaration: 

VAR I, J. K: INTEGER; 

Variable K would be stored at offset 1 (not 3), J would be at 
offset 2 and I at offset 3. 

For this declaration 

VAR A: ARRAYCO. . 23 OF INTEGER; 

AC03 would be at offset 1, AC13 at offset 2 and AC33 at 3. 

Parameters are always stored directly from left to right. 
Functions values always occupy offsets i and 2. 

IPC is the interpreter program counter and by looking at this 
number and searching for it ( or the number that's closest to it but 
still smaller ) in the source listing you will have the line in which 
the error occurred. In this case the IPC is 11 which corresponds to 
line 8 in program BUG. 

DEPTH tells you where the current procedure is in the 'call' 
chain with respect to the procedure in error ( which is always at the 

n™^ ° f the Cal1 Chaln 3nd thereforG at depth O). In other words, 
DEPTH is the number of dynamic links above the halted procedure 
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DEFAULTLINK is the type of LINK you will traverse when using 
the traversal commands. A DYNAMIC link points to a procedure's caller 
and a STATIC link to its parent. 

The '#' shows where the D<ata. SCtack. or H(eap command will 
write when used. 

COMMANDS IN EXAMINE MODE 

1) # links -entering a number between and 9 will move you 
that many links up or down the dynamic or static chain. The direction 
in which you will go is determined by the first character of the 
EXAMINE prompt. '>' indicates traversal will be in the direction of 
older calls (if dynamic) or ancestors <if static); '<.' indicates 
traversal towards more recent calls. Note: Traversal towards „_._. 
descendants is disallowed. The type of links you will traverse, STATIC 
or DYNAMIC, is specified to the right of DEFAULTLINK. 



2) 



<esc> -typing this will return you to the system command 



level. 



3) L(ink -this command toggles the DEFAULTLINK from DYNAMIC to 
STATIC and vice-versa. 

4) D(ata -used for examining the DATA and parameter segment of 
a procedure. This command has 4 parameters that can be specified if you 
don't want to use their default values. The debugger will prompt you 
for them. Typing a Ccr3 at any point tells the debugger to use the 
default values for the rest of the parameters. Typing a CspaceD 
delimits a parameter and lets the debugger prompt you for the next one. 

a) OFFSET: default value is last offset displayed plus 1. 
Beginning value is 1. You change the offset by entering an 
integer. 

b) LENGTH: beginning default value is the minimum of the 
Buffer size for the memory display (15 for 24 line screens) and 
DATA plus PARAM. After that it is the last length specified in a 
D(ata or S(tack command. LENGTH determines the number of words to 
be displayed. 

c) PROC: the number of the current procedure is the 
default value. Any procedure that is up the call chain from PROC 
may be specified. 

d) SEG: default value is the segment the current procedure 
belongs to. Enter the value of the segment you want if it's not 
the default. 
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t he d.t.. lf j; P M;; ,, i;:i n : i i:%*:* t :;«j»;; p— -e lt wl u , isplay 

memory displa bu fer n e !r ii GraS ^ 9 information in the 
than PARA^plus n^ for' H^ure"^ ^^e^ di " 1 «<""' iS ^«" 

Warning - offset too large 

«- --^.-^.j -, -—•,--»: :: :: i» no *;-, 

.... » «„. ,„,,..„, ,„„„„,... TM:"™.;5 , :i: , ;;„ p ^:^: r :" d 

„ a . a , lU b> SEG -segment number where desired procedure resides 
Default segment number is that of the current procedure 

up the d^mic^n^r^U^ JhTcIli th V:J U " tr «*" then search 
< This implies you can never move thl !** eurreB * Procedure, 
debugger won't find It ) if t J Lh ^w""*"! procedu ™ si "" the 
the current procedure and the informlr P™c.dure is found it becomes 
updated, otherwise the'currtnt X T^rlV^l KS^J"' ^ *' 

debug g er 7 Ls E ?nvo k ;; eSUme n ° rmal execotio " ■* *•«• P»gr« where the 

point in 8 J h f ^.;:: , ::: r : i ; h % ut jx UB % # .rL: r ;x;::.j n CRAWL mode at the 

where thl^e^gger^aT invo^e^ 10 " °' Pr ° B ™" ln WALK «— •*«■»"■ 

and H<eap 10 comL D nds -v^^e^o^^T;^^ ^V^' S <^' DC.t. 
the memory buffer. Wh*n 'U' f a " d offsets displayed in 

numbers arc used to look up e r ^ " is. erased and the saved 
the information belongT to%™red U res tl a t\ll 'iZV""^"'- " *"* ° f 
procedure in the call chain then UPnlrr . , f ' OM the curren * 
that part and will say TC W1 U not be able to refresh 

Proc not found 
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11) ERASE -clears the memory display buffer on the screen. 

NOTE: neither the UPDATE nor ERASE commands affect main memory but simply the 
memory display buffer. 

12) '<' or '. ' -changes the direction of link traversal to be 
down the call chain, i.e. go towards the callees 

13) '>' or '. ' -changes the direction of link traversal to be 
up the call chain, i. e. go towards callers 

14) HEAP -asks for an octal address, and a length. That portion 
of memory will then be displayed. 

15) <CR> -clears the line with the '*' and moves down one line. 

16) <CTRL-U> -moves the '*' up one line. 

17) <CTRL-D> -moves the '*' down one line. 

18) BREAKPOINT -asks if you want to S(et or Cdear a 
breakpoint. 

SET: asks for a line number. Enter a line that has a '*' 
in the compiled listing. Whenever a statement in that line is 
about to be executed, the debugger is called. 

CLEAR: asks for a line number. Enter <cr> to clear all 
breakpoints, or the line number of an active breakpoint. 



This final section of the document will describe how one could 
use the commands described above to diagnose the fault < floating point 
error > that occurred in program BUG. 

We know that the error occurred on line 8 

J :=5/ Ii 

and the cause was a floating point error. With the debugger we might 
want to look and see just what the value of I is. From the source 
listing one can see that I is stored in procedure #1, segment ttl at 
offset 3. Let us use the M(ove command to go to procedure 1 and then 
the D<ata command to look at the value of I. 
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1) type 'M' for move, then a 1 for procedure 1 and then Cret3 
since the default segment * is 1 which is what we want. 

Proc: ltret] 

2) the three line description of the current procedure will be updated 
as shown below- the memory display buffer is unchanged so far. 

3) type CretU. This will enter a blank line in the memory display 
buffer. This step is not necessary. 

4) type 'D' for data, enter 3 for OFFSET then Cspace3, 1 for LENGTH 
and then Creta. 

Offset: 3 Length: lCret3 



The screen will look as follows: 



>EXAMINE: 1. . 9 (links, M(ove, <, >, L<ink, D<ata, S(tack, H(eap, 

ECrase, U(pdate, <ctrl-U(p>, <ctrl-D<own>, CCrawl, W(alk, R<esuroe, <esc> 

Proc 1 Caller 1 Parent 1 Param 2 Data 1 

_ S fS 1 s «$ A- Seg O Stac* 4- IPC 9 Depth 1 

Brkpnts: Default I ink = Static 

TYPE ID PROC# OFFSET ADDR INTEGER OCTAL HEX LO HI CHAR 

Data 2 1 116560 -25228 116564 9D74 164 235 V> 

Data 2 2 116562 000000 0000 000 000 ?? 

Data * 3 116614 O 000000 0000 000 000 ?? 
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An alternate way to look at the value of I would have been to 
just use the DCata command and specify 1 for the procedure number 
rather than using the default value. Note that this would not change 
the value of the current procedure as the above method does. 

Offset: 3 Length: 1 Proc: lCret3 



Things to note: 

PARAM is equal to two. This is because the system predeclares 
the two parameters INPUT and OUTPUT for you. 

The integer value of I is zero just as it should be. 
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— Notes 
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******************* *************** 
* PASCAL COMPILER * * Section 1.6 * 
******************* *************** 

Version 1.4 January 1978 

The U. C. S. D. Pascal compiler is invoked bg using the C(ompile 
command of the outermost level of the U. C. S. D. Pascal system. It 
assumes you have a workfile, either created by the editor, or GCotten 
in the F( i ler. 

The U. C. S. D. Pascal compiler is a one-pass recursive descent 
compiler. It generates codefiles to run directly on the Pascal 
interpretive machine. The compiler is based on the P2 portable compiler 
from Zurich. 

Unless the SLOWTERM Boolean inside of the system communication 
record SYSCOM A is true, the compiler during the course of compilation 
will display on the CONSOLE device output detailing the progress of the 
compilation. (This output can be suppressed with the Q+ compiler 
option, which is dicussed in the section of this document entitled 
"Compile Time Options" which appears below). Below is an example of 
the output which appears on the CONSOLE device: 

PASCAL compiler CI. 43 

< 0> 

PI 

< 19> 

P2 

< 61> 

TEST 

< 1 19> > 

The identifiers appearing on the screen are the identifiers of 
the program and its procedures. The identifier for a procedure is 
displayed at the moment when compilation of the procedure body is 
started. The numbers enclosed within < > are the current line 
numbers. Each dot on the screen represents 1 source line compiled. 

If the compilation is successful, that is. no syntax errors were 
detected, the the compiler will write a codefile onto the disk called 
•SYSTEM. WRK. CODE. This is the codefile which is executed if the user then 
types the R(un command. (For further details on the system commands, see 
INTRODUCTION AND OVERVIEW Sec. 1. 1 . > 

Should the compiler detect a syntax error, the text surrounding 
the error and an error number together with the marker '««. ' will 
point at the symhol in the source where the error was detected (unless 
both the Q and L options are set, in this case the compilation will 
continue, with the syntax error going to the listing file, and the 
console remaining undisturbed). The compiler will the give the user 
the option of typing a space, an <esc> or 'E'. Typing a space 
instructs the compiler to attempt to continue the compilation, while 
escape causes the termination of the compilation, and "E" results in a 
call to the editor, which automatically places the cursor at the symbol 
where the error was detected. 
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There are a few syntax errors added to the U. C. S. D. compiler 
which are not listed on pages 119-121 in Jensen and Wirth A list of 
these additional syntax errors appears in TABLE 5. All error numbers 
will be accompanied by a textual message upon entry to the editor 
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* COMPILE TIME OPTIONS .* * SECTION 1.6. 1 * 
***#*#*#*****#*#***•***•»■* ***************** 

Compile tim« options in the U. C. S. D Pascal compiler are set 
according to a convention described on pages 100-102 of Jensen and 
Mirth, where compile time options are set b y means of special "dollar 
sign" comments inside the Pascal program text. The syntax used in 
U. C. S. D. 's compiler control comments is essentially as described in 
Jensen and Wirth. However the actual options and the letters associated 
with those options bear only occasional resemblance to the options 
listed on pages 101 and 10S of Jensen and Wirth. Also, if a '+' or '-' 
didn't appear after an option letter, '+' is assumed. The fallowing 
sections describe the various options currently available to the user 
of the U. C. S. D. Pascal compiler. 



This option is used to cause the compiler to issue breakpoint 
instructions into the codefile during the course of the compilation in 
order that the interactive Debugger can be used more effectively. (See 
Section 3.2 of this documentation entitled "DEBUGGER" for details) 

Default value: D- 

D-: causes the compiler to not emit breakpoint instructions 
during the course of the compilation. 

D+: causes the compiler to emit breakpoint instructions. 



G: 

Affects the boolean variable GOTOOK. in the compiler. This 
boolean is used by the compiler to determine whethe.r it should allow 
the use of the Pascal GOTO statement within the program. 

Default value: G- 

G+: allows the use of the GOTO statement. 

G-: causes the compiler to generate a syntax error upon encount- 
ering a GOTO statement. 

The G-option has been used at U. C. S. D to restrict novice 
programmers from excessive uses of the GOTO statement in situations 
where more structured constructs such as FOR, WHILE, or RtPEAT 
statements would be more appropriate. 



Page 77 



I: 

» 

When an 'I' is followed immediately by a '+' or '-' then the 
control comment will affect the boolean variable IOCHECK within the 
compiler The alternative use of 'I' in a compiler control comment is 
to cause the compiler to include a different source file into the 
compilation at this point. The syntax of this include-file mechanism 
will be discussed after the discussion of the IOCHECK option. 

< IOCHECK OPTION ) 

Default value: 1+ 

I+: instructs the compiler to generate code after each 

statement which performs any I/O, which checks to see if 
the I/O operation was accomplished successfully In the 
case of an unsuccessful I/O operation the program will be 
terminated with a run time error. 

I-: instructs the compiler not to generate any I/O checking 
code. In the case of an unsuccessful I/O operation the 
program is not terminated with a run time error. 

The I-option is useful for system level programs which do many I/O 
operations and also check the IORESULT function after each I/O operation The 
system program can then detect and report the I/O errors, without being 
terminated abnormally with a run time error. However this option is set at the 
expense of the increased possibility that I/O errors, (.and possib y severe 
program bugs), will go undetected. " H " severe 

( INCLUDE FILE MECHANISM ) 

The syntax for instructing the compiler to include another 
source file into the compilation is as follows: 

<**IFILENAME*) 




f 



and ^FIL E NA M ^ aCt p r °* th V iXename ' y°" »"»t insert a blank between '<*$I^ 
and FILENAME'. For example, the comment: 



<**ITURTLE. TEXT*) 



th^.^T th * file TURTLE. TEXT to be compiled into the program at 
that point m the compilation. 

(**I +FARKLE. STUFF*) 
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would cause the source file +FARKLE. STUFF to be included into the 
compilation. 

If the initial attempt at opening the include file fails, the compiler 
will concatenate a ".TEXT" onto the file-name and try again. If this second 
attempt fails, or some I/O error occurs at some point while reading the 
include file, the compiler mill respond with a fatal syntax error. 

The compiler will also relax the requirements of the order in 
which declarations must be made for included files, so that it is 
possible to include files which contain CONST, TYPE, VAR, PROCEDURE, 
and FUNCTION declarations even though the original program has 
previously completed its declarations. To do so the include compiler 
control comment must appear between the original program's last VAR 
declaration and the first of the original program's PROCEDURE or 
FUNCTION declarations. Note that an include file may be inserted into 
the original program at any point desired- provided the rules 
governing the normal ordering of Pascal declarations will not be 
violated. Only when these rules are violated does the above procedure 
apply. 

The compiler cannot keep track of nested include comments, i.e. 
an include file may not have an include file control comment. This 
will also result in a fatal syntax error. 

The include file option was added to the compiler at U. C. S. D in 
order to make it easier to compile large programs without having to 
have the entire source in one very large file which in many cases would 
be too large to edit in the existing editors' buffer. 

L: 

Controls whether the compiler will generate a program listing 
of the source text to a given file. The default value of this option is 
L-, which implies that no compiled listing will be made. If the character 
following "L" is "+", then the compiled listing will be sent to a 
diskfile with the title '*SYSTEM. LST. TEXT '. The user may override this 
default destination for the spiled listing by specifying a filename 
following "L". For example the following control comment will cause the 
compiled listing to be sent to a diskfile called "DEMOl. TEXT": 

<**L DEMOl. TEXT*) 

See the section of this document describing the include file mechanism 
for a complete description of the syntax for specifying a file-name inside of 
a control comment. 



Page 79 



Note that listing files which are sent to the disk may be edited as 
any other text file provided the filename which is specified contains the 
suffix ".TEXT". Without the ".TEXT" suffix the file will be treated by the 
system as a datafile rather than as a text file. 



The compiler outputs next to each source line the line number, segment 
procedure number, procedure number, and the number of bytes or words (bytes 
for code, words for data) required by that procedure's declarations or code to 
that point. The compiler also indicates whether the line lies within the 
actual code to be executed or is a part of the declarations for that procedure 
by outputing a "C" for code and a "D" for declaration. If the D+ option is 
set then the listing file will include an asterisk on each line where it is 
appropriate for a user to specify a breakpoint while in the interactive 
Debugger. This information can be very valuable for debugging a large program 
since a run time error message will tell you the procedure number, and the 
offset where the error occurred. 



The Q compiler option is the "quiet compile" option which can 
be used to suppress the output to the CONSOLE device of procedure names 
and line numbers detailing the progress of the compilation. 

Default value: is set equal to current value of the SLOWTERM 
attribute of the system communication record 
SYSCOfT. (actual ly SYSCQM*. MISCINFO. SLOWTERM) 

Q+: causes the compiler to suppress output to CONSOLE device. 

Q-: causes the compiler to send procedure name and line number 
output to the CONSOLE device. 



This option affects the value of the boolean variable 
RANQECHECK in the compiler. If RANGECHECK is true then the compiler 
will output addtitional code to perform checking on array subscripts 
and assignments to variables of subrange types. 

Default value: R+ 

R+: turns range checking on. 

R-: turns range checking off. 

Note that programs compiled with the R-o.pt ion set will run 
slightly faster; however if an invalid index occurs or a invalid 
assignment is made, the program will not be terminated with a run time 
error. Until a program has been completely tested and known to be 
correct, it is usually best to compile with the R* option set. 
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U: 



This option sets the boolean variable SYSCOMP in the compiler. 
This boolean variable is used by the compiler to determine whether 
this compilation is a user program compilation, or a compilation of a 
system program. 



Default value: U+ 
U+ 



U- 



informs the compiler that this compilation is to take place on the 
user program lex level. 

informs the compiler to compile the program at the system lex level. 
This setting of the U compile time option also causes the following 
options to be set: R-. G+. 1-. 



NOTE: This option will generate programs that will not behave 
as you might expect them to. Not recommended for non-systems work 
without knowing why it does what it does. 
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- Nates - 
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*********************** *************** 

* UCSD BASIC COMPILER * * Section 1. 7 * 

*********************** *************** 

Version 1.4 January 1978 



In troduction 

This document has been designed for programmers who are already 
familiar with Basic. The intent of this document is to describe to 
those experienced users the details of UCSD Basic in a manner 
sufficiently detailed so as to enable the writing or modification of 
programs in a manner compatible with the UCSD Basic Compiler. 

This document is divided into three sections. The first 
contains a brief description of the features included in UCSD Basic. 
The second contains the descriptions of the features unique to UCSD 
Basic. The third contains a list of those features which we intend UCSD 
Basic to allow, but which are not yet implemented. 

The UCSD Basic Compiler has been written in the Pascal 
language. Some of the intrinsics of the Pascal language, which are not 
found in standard Basic, are found within the UCSD version of Basic 
Many of these are noted in the first section of this document, all of 
them are noted or recapped in the second section. 

The UCSD BASIC Compiler is invoked like a user program (with the 
execute command: X BASIC.COM ). It immediately prompts for the name 
of the source file to be compiled. If no file is given <ie. an immediate 
carriage return response to the prompt), the current workfile is used as 
the source. Next the compiler prompts for a codefile name. This file 
will contain the results of the compilation and can be executed like any 
other user program, when the compiler has completed its translaion. 



A Basic Description of Features Included 

The Basic compiler has only ^eal and string variables. When 
applying a real to indexing ~" other integer purposes the rounded value 
of the number is used. In thi functions below x and y can be real 
variables or expressions which evaluate to real values. Similarly si 
and s2 can be string variables or expressions which evaluate to a 
string. 

V ariable Names 

Real variables: letter (digit) . 

String variables: letter (digit)*. The digit is optional. 
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Intrinsic Arithmetic Functions 

ATN(x) Returns the angle in radians whose tangent is x. 

EXP<x) Returns the base of the natural logarithms raised to the power x. 

INT(x> Returns the value of x rounded to the nearest integer. 

LOG(x) Returns the log (base 10) of x. 

LN<x) Returns the natural log of x. 

MOD(xiy) Returns x modulo u. 

SIN(x) Returns the sine of the angle x. Where x is in radians. 

GQS<x) Returns the cosine of an angle x. Where x is in radians. 

Intrinsic String Functions 

CAT*<sl, s2, . . . > Returns a string which is equal to the concatenation of 

all the strings in the parameter list. 
COP*(sl,x,y) Returns a copy of the portion of the string sli y 

consecutive characters, starting with the character at position x. 

DEL*<sl,x,y) Returns the contents of the string si with y consecutive 
characters deleted. The deletion starts with the character at 
position x. 

INS*<sl, s2, x) Returns the contents of string s2 with string si inserted 
immediately before the character which is at position x. 

LEN(sl) Returns the length of the string si. 

P0S(sl.s2) Returns an integer which is equal to the position of the 

first character in the first occurance of the string si in the 
string s2. 

O ther Function s 

ORDCs) Returns the ASCII value of the first character of the string s; 

STR*<x> Returns the string containing the character associated with the ASCII 
value x. 

GET* Reads a single character from the keyboard without prompt or echoing, 
and returns it as a string. GET* requires no arguments. 

OLD < c , s ) 

NEWcs) c is a numeric constant without a fraction part, which becomes 
associated with the disk file whose name is in s. OLD expects 
that file to already exist, new creates a now one with the name 
s, removing anu previous file of that name. These functions 
must occur before associated print or input; statements. The 
numbers may not be reassigned and must be in the range 1. . 16 For 
best results, use only at the top of a program. If you wish to 
have a file created by new to be editable with either of the 
system editors, you must append '.text' to the file title. 
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These functions return IORESULT as described in section 2. 1. 



Programming Statements 

Arithmetic statements and operations 

— , + subtract^add 

/ i * d ivide, multiply 

"' « *# exponentiation 



Relational operators 





= 




equals 




<> . 


>< 


not equals 




> 




greater than 




< 




less than 




>= . 


=> 


greater than or equal 




<= , 


=< 


less than or equal 


INPUT list 








or 








INPUT #c list 









Inputs from the main system devicei usually the keyboard. If 
the optional #c is present. INPUT inputs from the disk file 
number c. The input list may contain any combination of real 
variables and string variables. When a program expects input the 
prompt "7" is printed. Input of real numbers may be terminated 
with any non-numeric character. Input of strings must be 
terminated with a return. 

PRINT list 

or 
PRINT #c list 

Writes to the main output device the list following the PRINT 
command. If the optional #c is present; PRINT outputs to the 
diskfile number c. The output list may contain any variable, 
subscripted array variable, any arithmetic or string expression, 
or any literal text. The list may be separated by commas or semi- 
colons. If the list ends in a semi-colon the carriage return is 
suppressed. Literals m?" be enclosed in either type of quotation 
marks. Double occurance-. of the enclosing quotation mark prints a 
single mark of that type. 

FOR var = expl TO exp2 STEP exp3 

NEXT var 

Each execution of the loop increments the loop counter "war" by 
the amount of expression three. If the STEP is omitted it is 
assumed to be 1. Only increasing STEP values are allowed. 
Evaluation of limits and increments is done at the beginning of 
the loop. Note that RETURN'S into or GOTO's into a FOR loop may 
cause the loop to be undefined. 
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IF expl (relation operator) exp2 THEN (line number) 

GOTO 

Either the reserved word THEN or GOTO can be used in this 
statement. If the relation between the expl and exp2 is found 
to be true the branch occurs. A string is considered to be less 
than another string if it is lexicographically smaller. 

ON exp GOTOdnl, ln2. . ) 

If the expression, when rounded, evaluates to 1 it goes to the 
first line number (lnl) if it evaluates to 2 it goes to ln2, 
etc. This is the only form of the computed GOTO which is 
available. If the expression is out of range an error occurs. 

DEF FNname(list)=expression or DEF FNnamed ist) 

FNEND 

Single line and multi-line functions are allowable. The 
function name must be a legal variable name for the type of 
value returned. Functions may be defined recursively The 
parameter list is called by value, that is, changes inside the 
function don't affect the value of the external parameters. 

LET var=exp 

or 
var-e x p 

This command assigns a new value to the variable. If the 
variable is a string, the expression must evaluate to a string* 
if the variable is a real, the expression must evaluate to a 
real. 

DIM var (nl, n2, . . . > 

A single or multidimensional array may be declared with this 
command. The variable name determines the type of the array 
The array indices are 0. . nl, O. . n2, . . . Both real and string 
multidimensional arrays can be used. If no dimensions are 
declared the dimensions are assumed to be O. . 10, 0. . 10, 0. .1, 
O. . 1 ... The number of dimensions automatically declared 
depends on the number of dimensions which are used in the 
program, but must be consistant over all uses of ang qiven 
array. s 

GOSUB linenumber 



Executes a subroutine call. The calling address is placed 
the subroutine stack. Subroutine calls may be recursive. 



on 
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RETURN 

Returns to the line after the last GOSUB which is still 
pending. It pops the top address off the stack and uses it as 
the return address. A return when no GOSUB's are pending is an 
error. 

GOTO linenumber 

Program execution jumps to the given line number. 

REM text 

This line is a remark. 

I jninue Features of UCSD Basic 
Arithmetic 

For loops: Note that var=expl is done before exp2 or exp3 are evaluated. 

Continuation of statements is allowed. Any line not beginning with a 
line number is assumed to be the continuation of the line above. 

Functions: All parameters of functions are call by value. You are not 
allowed to use the parameters to return values from a function. 
Function calls are allowed to be recursive. 

Strings: The string functions and procedures are those found in the 
UCSD Pascal language. 

Arrays: Arrays of more than two dimensions are allowed. 

Print: Tab stops are not allowed. All list elements are printed without 
spaces between them. The carriage return can be suppressed by "< " 
as the last symbol in the line. 

Subroutines: Subroutines may be recursive. 

Comments: In line comments may be inserted. The portion of any line 
following the @ symbol is ignored by the compiler. 

PASCAL FUNCTIONS: The code of PASCAL FUNCTIONS may be added to th 
BASIC compiler as new standard BASIC functions. This is 
accomplished by a straight-forward addition to the BASIC 
compi ler. 

Intended Features 



e 
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Certain features of the UCSD Basic compiler are still in the process of 
being implemented. The most important of these are listed below. 

Data and Read: The standard initialization statements. 

Matrix statement for standard matrix operations. 

Integer variables. 

More standard functions. 

To run a BASIC progr am 

Create the BASIC program using one of the system text editors 
Execute the file BASIC.COM, you will be asked for an input file, typing 
carriage return with no file name will cause the BASIC compiler to 
assume the workfile. You will also be asked to specify an output file, 
typing carriage return with no filename will cause the BASIC compiler 
to generate its output to the filename B. If your program compiles 
with no syntax errors, you can run it by executing the code file 
generated by the basic compiler. If there are syntax errors in your 
program the ensuing steps should be obvious. 
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********************* *************** 
* SYSTEM INTRINSICS * * Section 2. 1 * 

********************* *************** 



Version I. 4 



January 1978 



WARNING : 

Most of the UCSD intrinsics assume that users are fluent in the 
use of PASCAL and are experienced in the use of the system. Any 
necessary range or validity checks are the responsibility of the user. 
Since some of these intrinsics do no checking for range validity, they 
may easily cause the system to die a horrible death. Those intrinsics 
which are particular! ly dangerous are noted as such in their 
descriptions. 

PARAMETERS: 

Required parameters are listed along with the function/procedure 
identifier. Optional parameters are in Csquare brackets}. The default 
values for these are in -Cmetabrackets> on the line below them. 

NOTE: 

Following are some definitions of terms used in these 
documents. They tend to take the place of formal parameters in the 
dummy declaration headers that preface each description of a particular 
routine* or set of routines. 



(I? 



ARRAY 

BLOCK 

BLOCKS 

BLOCKNUMBER 

BOOLEAN 

CHARACTER 

DESTINATION 

EXPRESSION 
FILEID 



a PACKED ARRAY OF CHARacters 

one disk block* <512 bytes> 

an INTEGER number of blocks 

an absolute disk block address 

any BOOLEAN value 

any expres. on which evaluates to a character 

a PACKED ARRAY OF CHARacters to write into or 
a STRING, context dependent 

part or all of an expression, to be specified 

a file identifier, must be 

VAR fileid: FILE OF <type>i 
or TEXT, 
or INTERACTIVE, 
or FILE; 
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INDEX 

NUMBER 

RELBLOCK 

SIMPLVARIABLE 

SIZE 

SOURCE 

SCREEN 
STRING 

TITLE 
UNITNUMBER 

VOL ID 



: an index into a STRING or PACKED ARRAY OF CHARacters, 
context dependent or as specified. 

: a literal or identifier whose type is either INTEGER 
or REAL. 

: a relative disk block address, relative to the start 
of the file in context, the first block being 
block zero. 

: any declared PASCAL variable which is of one of the 
following TYPEs: 

BOOLEAN CHAR REAL STRING 
or PACKED ARRAY! . . 3 OF CHAR 

: an INTEGER number of bytes or characters,- any integer 
value 

: a STRING or PACKED ARRAY OF CHARacters to be used as a 
read-only array, context dependent or as specified 

: an array 9600 bytes long; or as needed. 

: any STRING, call-by-value unless otherwise specified, 
i.e. may be a quoted string, or string variable 
or function which evaluates to a STRING 

: a STRING consisting of a file name 

: physical device number used to determine device handler 
used by the interpreter 

: a volume identifier. STRINGC73 
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»*****#************** ***************** 

* STRING INTRINSICS * * Section 2. 1.1 * 
********************* ***************** 

Version 1.4 January 1978 

FUNCTION LENGTH ( STRING ) : INTEGER 

Returns the integer value of the length of the STRING. 

Example: 

GEESTRING :» '1234567 'i 
WRITELNCLENGTMGEESTRING), ' ', LENGTHt " ) >i 

Will print: 

7 O 

FUNCTION POS < STRING , SOURCE ) : INTEGER 

This function returns the position of the first occurrence of 
the pattern in SOURCE to be scanned. The INTEGER value of the position 
of the first character in the matched pattern will be returnedi or if 
the pattern was not found, zero will be returned. Example: 

STUFF :- 'TAKE THE BOTTLE WITH A METAL CAP'i 

P ATTORN := 'TAL'i 

WR I TELN( POS <P ATTORN. STUFF) )j 

Will print: 
26 

FUNCTION CONCAT ( SOURCES ) STRING 

There may be any number of source strings separated by commas. 

This function returns a string which is the concatenation of 
all the strings passed to it. Example: 

SHORTSTRING := 'THIS IS A STRING'j 

LONGSTRING := 'THIS IS A VERY LONG STRING. 

LONGSTRING := CONCAT< 'START '. SHORTSTRING, '-'. LONGSTRING )> 

WR I TELN( LONGSTRING) ) 
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Will print: 

START THIS IS A STRING-THIS IS A VERY LONG STRING. 

FUNCTION COPY ( SOURCE , INDEX , SIZE ) : STRING 

This function returns a string containing SIZE characters 
copied from SOURCE starting at the INDEXth position in SOURCE 
Example: 

TL := 'KEEP SOMETHING HERE'; KEPT := COPY(TL, POS< 'S', TL>, 9); 
WRITELN(KEPT); -il/,vj. 

Will print: 

SOMETHING 

PROCEDURE DELETE ( DESTINATION , INDEX . SIZE ) 

This procedure removes SIZE characters from DESTINATION 
starting at the INDEX specified. Example: 

OVERSTUFFED := 'THIS STRING HAS FAR TOO MANY CHARACTERS IN IT ' i 
DELETE< OVERSTUFFED, POS( 'HAS', OVERSTUFFED) +3, 8); 
WR I TELN ( OVERSTUFFED > > 

Will print: 

THIS STRING HAS MANY CHARACTERS IN IT. 



PROCEDURE INSERT ( SOURCE , DESTINATION , INDEX ) 

DESTINATION 5 inS6rtS B ° URCE int ° DESTINATION at the INDEXth position in 



Example: 



ID := 'INSERTIONS'; 
MORE :■ ' DEMONSTRATE'; 
DELETE < MORE, LENGTH ( MORE ) , 1 ) > 
INSERT<MORE, ID, POS< '10', ID)); 
WRITELN(ID); 

Will print: 

INSERT DEMONSTRATIONS 
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Note about using strings and string functions: 

In order to maintain the integrity of the LENGTH of a string, 
only string functions or full string assignments should be used to 
alter strings. Moves and/or single character assignments do not affect 
the length of a string mhich means it pro b ablu beco mes uironq. The 
individual elements of STRING are of type CHAR and may be indexed 
1. . LENGTH (STRING). Accessing the string outside this range will have 
unpredictable results if range-checking is off or cause a run-time 
error (1) if range checking is on. 
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- Noti 
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ft****************************** ****#*««#«««***«* 
* INPUT AND OUTPUT INTRINSICS * * Section 2. 1. 2 * 



Version I. 4 



January 1978 



PROCEDURE RESET ( FILEID. CTITLE3 ) ; 
PROCEDURE REWRITE ( FILEID, TITLE >; 

These procedures open files for reading and writing. They mark 
the file as open. The FILEID may be any PASCAL structured f ile. and 
the TITLE is a string containing any legal file title. 

The difference between them is that REWRITE creates a new file 
on disk for output files; RESET simply marks an already existing file 
open for I/O. (Note: if the device specified in the title is a non- 
directory structured device, e.g. PRINTER: , then the file is opened 
for inputi output, or both in either case. > If the file was already 
open# and another RESET or REWRITE is attempted to it> an error will be 
returned in IORESULT. The file's state will remain unchanged. 

RESET (FILEID) without optional string parameter "rewinds" the 
file by setting the file pointers back to the beginning (zero th 
record) of the file. The boolean functions EOF and EOLN will now be 
set by the implied GET in RESET. 

These procedures behave differently with files of type 
INTERACTIVE. RESET on files of types other than INTERACTIVE will do an 
initial GET to the file» setting the window variable to the first 
record in the file (as described in Jensen & Wirth). RESET on a file 
of type INTERACTIVE will not do an initial GET. 



PROCEDURE UNITREAD ( UNITNUMBER. ARRAY, LENGTH, 
PROCEDURE UN1TWRITE ( UNITNUMBER, ARRAY. LENGTH, 



CBLOCKNUMBER3, C INTEGER 1 >; 
CBLOCKNUMBER3, C INTEGER 1 ); 
< sequential > < > 



THESE ARE DANGEROUS THTRINSICS 



These proced 
various devices. Th 
The ARRAY is any dec 
indicate a starting 
do the transfers fro 
the number of bytes 
using a block-struct 
blocknumber at which 
BLOCKNUMBER is left 
(assumed O) and indi 
asynchronously. The 
sufficient. (See UN 



ures are the low— 1 
e UNITNUMBER is th 
lared packed array 
position. This is 
m/to. The LENGTH 
to transfer. The 
ured device (i.e. 

the transfer will 
out, is assumed, 
cates (if 1) that 

blocknumber is no 
ITBUSY and UN I TWA I 



evel procedures which do I/Os to 
e integer name of an I/O device. 
, which may be subscripted to 

used as the starting address to 
is an integer value designating 
BLOCKNUMBER is required only when 
a disk) and is the absolute 

start from/to. If the 
The INTEGER value is optional 
the transfer is to be done 
t necessary. A '. » ' will be 
T. ) 
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FUNCTION UNITBUSY ( UNITNUMBER ) : BOOLEAN; 

This function returns a BOOLEAN value, indicating if TRUE that 
the device specified is waiting for an I/O transfer to complete. 

Example: 

UNITREAD(2-Cnon-echoing keyboard)-, CHCOK, 

Kfor one character}, {no block no. >, 1 {asynchronous}); 
WHILE UNITBUSYC2XWhil. the READ has not been computed? SS 
WR I TELN< OUTPUT, 'I am waiting for you to type something'); 
WRITELN< OUTPUT, 'Thank you for typing a '.CHE03), 

Execution of this example will continuously type out the line 
I am waiting for you to type something' until a character is struck on 
the keyboard. Suppose a ' ." were typed. The message 'Thank you for 
typing a !' will then appear, and program execution will proceed 
normal ly. 

PROCEDURE UNITWAIT ( UNITNUMBER ); 

This waits for the specified device to complete the I/O in 
progress. It can be simulated by: 

WHILE UNITBUSY(n) DO {waste a small amount of time>; 



PROCEDURE UNITCLEAR < UNITNUMBER >; 

UNITCLEAR cancels all I/Os to the specified unit and resets the 
hardware to its power-up state. 



FUNCTION BLOCKREAD < FILEID. ARRAY, BLOCKS, CRELBLOCK3 > ■ INTEGER; 
FUNCTION BLOCKWRITE < FILEID, ARRAY, BLOCKS, CRELBLOCK3 > ': INTEGER J 

i sequential > 

•.i l I h ! S ! functions ™turn an INTEGER value equal to the number of 
blocks of data actually transferred. The FILE must be an untyped file 
ti.e. F: FILE; ). The length of ARRAY should be an integer multiple of 
bytes-per-disk-block. BLOCKS is the number of blocks you want 
transferred. RELBLOCK is the blocknumber relative to the start of the 
file, the zeroeth block being the first block in the file If no 
RELBLOCK is specified, the reads/writes will be done sequentially A 
random access I/O moves the file pointers. CAUTION should be exercised 
when using these, as the arra\) bounds are not heeded EOF(FILEID) 
becomes true when the last block in a file is read. 
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PROCEDURE CLOSE ( FILEID OPTION ); 

OPTION may be null or ', LOCK', or ', NORMAL'/ or '. PURGE', or 
', CRUNCH'. (Note the commas!) 

If OPTION is null then a NORMAL close is done. i.e. CLOSE 
simply sets the file state to closed. If the file was opened using 
REWRITE and is a disk file, it is deleted from the directory. 

The LOCK option will cause the disk file associated with the 
FILEID to be made permanent in the directory if the file is on a 
directory-structured device and the file was opened with a REWRITE; 
otherwise a NORMAL close is done. 



The PURGE option will delete the TITLE associated with the 
FILEID from the directory. The unit will go off-line if the device 
not block structured. 



is 



The CRUNCH option for now is undefined as to what it will 

do The intent is to lock a file with the minimun number of blocks 

of useful information. 

All CLOSEs regardless of the option will mark the file closed 
and will make the implicit variable FILEID- undefined. CLOSE on a 
CLOSEed file causes no action. 



FUNCTION EOF (FILEID) : BOOLEAN! 
FUNCTION EOLN (FILEID) : BOOLEAN; 

If (FILEID) is not present, the fileid INPUT is assumed (e.g. 
IF EOF THEN... ). EOLN and EOF return false after the file specified is 
RESET. They both return true on a closed file. When EOF (FILEID) is 
true. FILEID- is undefined. When GET (FILEID) sets FILEID- to the EOLN 
character or the EOF character. EOLN (FILEID) will return true, and 
FILEID- (in a FILE OF CHAR) will be set to a blank. While doing puts 
or writes at the end of a file, if the file cannot be expanded to 
accomodate the PUT or WRITE. JF(FILEID) will return true. 

FUNCTION IORESULT : INTEGER; 

After any I/O operation. IORESULT contains an INTEGER value 
corresponding to the values given in Table 2. 



PROCEDURE GET ( FILEID ); 
PROCEDURE PUT ( FILEID >; 
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*„„.,.. <J hS " »™>"?'" , .i "» "sea for operations or. tup.i fil„ A 

OF CHAB „ ,,uiv.l. n t to 'F: TEXT". I„ , »„.„ file aacf iooio.l 1LE 

:«n:.i:/<n;:? '" asB flt,lns " e «••»•«'"•» °< ■ '"^»i.'o f ! ,„, 

«..,. pS.X's^i u" f nrpoJ„^r^t t h % o L:?:ci^ e :.M:?.r 1 

".in...- variable FILEID- and i„„.„.„ t tho fUo poinds 

PUT (FILEID) pots the contents of FILEID- into th» * f i. ^ *. fc 
locatxon of the current file pointers and then'updaJes" tho\e 'punters* 

PROCEDURE READ-CLN> ( FILEID, SOURCE ); 
PROCEDURE WRITE<LN> < FILEID, SOURCE >; 

leave EOLN(FILEID> true This 1J I!-! I ""lage return>) and 




PROCEDURE PAGE ( FILEID )} 

This procedure, as described in Jensen & Wirth (ihirf i .=„.« 
top-of-form (ASCII FF> to the file. <«*«.. >* sends 

PRODEDURE SEEK < FILEID, INTEGER ); 

tiizii s^iiit r i™?i:t\^: °„ a"/ ET " put «<** >■ — "»" 
............ JM1 . to »: i:;, 8 ^.",.?,,;:: s .:..•:,:;:;';;;;:; 



?rs. 
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* TURTLE GRAPHICS * * Section 2. 1. 3 * 

■*****#-K"»«--M"&##»**### **#******##*****# 

Version I. 4 January 1978 

Section 2. 1.3 is intentionally missing from the 1.4 set of 
documents. Turtle Graphics are not ready for general release as of 
Version I. 4i however, we do have a Turtle Graphics package for Terak 
8510a usersj which may be obtained upon special request. We plan in 
some future release to have a Turtle Graphics package which will be 
modifiable for any graphics screen. 

Thank you for your patience. 
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*********************************** *************** 
* LOW LEVEL GRAPHICS INTRINSICS ■* * Section 2. 1.4 * 
*********************************** *************** 



CAUTION : 



These routines do no range checking of the parameters they are 
passed. If any of the paramters are "out of range", these routines 
will happily move bit patterns throughout main memoryi much to the 
dismay of the operating system and your program. 

See Table 4 for modes and penstates for these intrinsics. 

The DRAW intrinsics are available only for the Terak 8510a in 
this release. Additional display units will be supported in later 
releases! but no details are currently available. Probable implementa- 
tion^): Tektronix 4006. 

PROCEDURE DRAWBLOCK ( SOURCE- SCREEN, ROWSIZE, STARTX, ST ARTY, 

SIZEX, SIZEY, COPYX, MODE ); 
{* none of these are optional *) 

This procedure is written for the Terak 8510a graphic display 
mode. The TERAK screen displays words consecutively with the most 
significant bit of the word on the right. DRAWBLOCK will work only on 
screens whose graphics operates in this manner. WARNING: No range 
checking is performed. 

DRAWBLOCK transfers a bit matrix SOURCE, which starts on an 
word boundary, to a specified point (STARTY, STARTX) in the bit matrix 
SCREEN. All parameters are integers except SCREEN, which is a bit 
matrix of width ROWSIZE (i.e. BITMAP: PACKED ARRAYCO. . MAXR0W3 OF PACKED 
ARRAYCO. . ROWSIZE-13 OF BOOLEAN;). The SOURCE is SIZEX bits wide by 
SIZEY bits high. The first COPYX bits of each row are copied into the 
destination. MODE is defined in TABLE 4. 

PROCEDURE DRAWLINE < RANGE, SCREEN. ROWWIDTH. XSTART, YSTART, 

PFLTAX, DELTAY, PENSTATE )i 
(* rune of these are optional *) 

In order the parameters are: INTEGER IDENTIFIER. ARRAY 
IDENTIFIER, and (the remaining six) INTEGER EXPRESSION. RANGE will 
contain the results of a Radar scan. This parameter is untouched 
unless PENSTATE is sent as 4. The value returned is the number of dots 
that would have been drawn before encountering an obstacle. SCREEN may 
be subscripted to determine a starting position in the array. ROWWIDTH 
is the width of SCREEN in number of words; this determines how DRAWLINE 
will consider the rectangularity of the array. XSTART is the starting 
horizontal coordinate; YSTART is the starting vertical coordinate. 
DELTAX is the distance to move in the horizontal plane. DELTAY is the 
distance to move in the vertical plane. PENSTATE controls the action 
taken; see TABLE 4. 
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♦It************-***-*************************** ***************** 

* CHARACTER ARRAY MANIPULATIONS INTRINSICS * * Section 2. 1. 5 * 
•a****************************************** ***************** 

Version 1.4 January 1978 



CAUTION ; 



These intrinsics are all byte oriented. Use them with care* 
read the descriptions carefully before trying them out. No range 
checking of any sort is performed on the parameters passed to these 
routines Therefore the programmer should know exactly what he is 
doing before he does it since the system does not protect itself from 
these operations. 



FUNCTION SCAN < LENGTH, PARTIAL EXPRESSION, ARRAY ) : INTEGER* 

This function returns the number of characters from the 
starting position to where it terminated. It terminates on e i* her 
matching the specified LENGTH or satisfying the EXPRESSION. The ARRAY 
should be a PACKED ARRAY OF CHARACTERS and may be subscripted to denote 
the starting point. If the expression is satisfied on the character at 
which ARRAY is pointed, the value returned will be zero. If the length 
passed was negative, the number returned will also be negative, and the 
function will have scanned backward. The PARTIAL EXPRESSION must be of 
the form: 

"O" or "=" followed by <character expression> 

Examples: 

DEM"?-* 11 '*. arr THE TERAK IS A MEMBER OF THE PTERADOCTYLE FAMILY. ' 

SCAN<-26, =': ',DEMC303)j 

will return -26 

SCANdOO, <>'. ',DEM)i 

will return 5 

SCAN(15, = ' '.DEMCO])i 

will return B 



PROCEDURE MOVELEFT < SOURCE, DESTINATION, LENGTH )i 
PROCEDURE MOVERIGHT ( SOURCE, DESTINATION, LENGTH >i 

These functions do mass moves of bytes for the length 
specified MOVELEFT starts from the left end of the specified source 
and moves bytes to the left end of the destination. MOVERIGHT starts 
from the right ends of both arrays. 
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These procedures will 
version) if at all possible. 
optimization; MOVELEFT will o 
address below the I/O page, 
the I/O page is that some har 
address space. ) 

In short: MOVELEFT st 
copies bytes traveling right. 
both arrays and copies bytes 
both of these is if you are w 
which characters are moved is 
attempt to show what happens 
the wrong direction for your 



optimize to word moves (in the 11 

MOVERIGHT never attempts this 
ptimize only if the destination is at an 
(The reason for not doing word moves to 
dware relies on byte addressing in this 

arts at the left end of both arrays and 

MOVERIGHT starts at the right end of 
traveling left. The reason for having 
orking in a single array and the order in 

critical. The following chart is an 
if you use the procedure which moves in 
purp oses. 



VAR ARAY: PACKED ARRAY CI.. 303 OF CHAR) 



ARAY 



ARAY 



ARAY 



ARAY 



<*123456709a 123456789b 123456789c*) 
STHIS IS THE TEXT IN THIS ARRAY! 

MOVERIGHT(ARAYC103. ARAYC13, 10); 
!NE TEXT INE TEXT IN THIS ARRAY! 

MOVELEFT ( ARAY C 1 3, ARAY C3 3, 10) 
SNENENENENENETEXT IN THIS ARRAY! 

MOVELEFT < AR AY C 23 3. ARAYC23,8)i 
1NIS ARRAYENETEXT IN THIS ARRAY! 



PROCEDURE FILLCHAR ( DESTINATION, LENGTH. CHARACTER ); 

This procedure takes a (subscripted) PACKED ARRAY OF CHARACTERS 
and fills it with the number (LENGTH) of CHARACTERS specified. This 
can be done by: 

AC03 := <character expression^ 
MQVELEFTCAC03.Ar.i3, n-1); 

but FILLCHAR is twice as fast, as no memory reference is needed 
for a source. 

See the note about word move optimization in the section on 
MOVELEFT. The notes about MOVELEFT also apply to FILLCHAR. 



The intrinsic SIZEOF (Section 2.1.6) is meant for. use with 
these intrinsics; it is convenient not to have to figure out or 
remember the number of bytes in a particular data structure. 
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♦a**************-***************************** ***************** 

* 1NTRINSICS MISCELLANEOUS USEFUL ROUTINES * * Section 2. 1. 6 * 
********************************************* ***************** 

Version 1.4 January 1978 



FUNCTION SIZEOF ( VARIABLE OR TYPE IDENTIFIER ) : INTEGER; 

This function returns the number of bytes that the "item" 
passed as a parameter occupies in the stack. SIZEOF is particularly 
useful for FILLCHAR and MOVExxxx intrinsics. 

FUNCTION LOG < NUMBER ) : REALj 

This function returns the log base ten of the NUMBER passed as 
a parameter. 

PROCEDURE TIME <VAR HI WORD, LOWORD: INTEGER )i 

This procedure returns the current value of the system clock. 
It is in 60ths of a second. (This is somewhat hardware-dependent; we 
assume a 16-bit integer size and 32-bit clock word. The HIWORD 
contains the most significant portion. WARNING! The sign of the LOWORD 
may be negative since the time is represented as a 32-bit unsigned 
number. ) Both HIWORD and LOWORD must be VARiables of type INTEGER. 

FUNCTION PWROFTEN (EXPONENT: INTEGER) : REALj 

This function returns the value of 10 to the EXPONENT power. 
EXPONENT must be an integer in the range O. . 37. 

PROCEDURE MARK (VAR HEAPPTR: -""INTEGER) 
PROCEDURE RELEASE (VAR HEAPPTR: "INTEGER)* 

These procedures are used for returning dynamic memory 
allocations to the system. HEAPPTR is of type "INTEGER. MARK sets 
HEAPPTR to the current top-of-heap. RELEASE sets top-of-heap pointer 
to HEAPPTR. 



PROCEDURE HALTi 

This procedure generates a HALT opcode that, when executed, 
causes a non-fatal run-time error to occur. At this point in 
execution, the Debugger is invoked; if the Debugger is not in core when 
this occurs, therefore, a fatal run-time error, #14, will occur. 



Page 15 



PROCEDURE GOTOXY < XCOORD . YCOORD )i 

This procedure sends the cursor to the coordinates specified by 
(XCOORD, YCOORD). The upper left corner of the screen is assumed to be 
(0,0). This procedure is written to default to a Datamedia-type 
terminal. If your system uses other than a Datamedia or Terak 8510a. 
you will need to bind in a new GOTOXY using the GOTOXY package 
described in Section 4. 10. 
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#********************************************************* *************** 
* DIFFERENCES BETWEEN U. C. S. D. PASCAL AND STANDARD PASCAL* * Section 2. 2 * 
♦ft******************************************************** *************** 

Version 1.4 January 1978 

This document is a description of the various differences 
between Standard Pascal and U. C. S. D. Pascal. The Standard Pascal 
referred to by this document is defined in PASCAL USER MANUAL AND 
REPORT (2nd edition) by Kathleen Jensen and Niklaus Wirth (Springer- 
Verlag, 1975). 

This document is intended to act as a summary and quick 
referance guide which mentions the areas in which U. C. S. D. Pascal 
differs from the Standard Pascali and refers the user to the 
appropriate documents which explain various aspects of U. C. S. D. Pascal. 

Many of the differences mentioned above lie in the area of 
FILES and I/O in general. It is recommended that the reader first 
concentrate upon the sections of this document which describe the 
differences associated with the standard procedures EOF* EOLN, READ, 
WRITE, RESET, and REWRITE. 

«»*«******#********#********************* 
♦SUMMARY OF TOPICS IN THIS DOCUMENT* 
***************************************** 

i. CASE STATEMENTS 

2. COMMENTS 

3. DYNAMIC MEMORY ALLOCATION 

4. EOF 

5. EOLN 

6. FILES 

A. INTERACTIVE FILES 

B. UNTYPED FILES 

C. RANDOM ACCESS OF FILES 

7. GOTO AND EXIT STATEMENTS 

8. PACKED VARIABLES 

A. PACKED ARRAYS 

B. PACKED RECORDS 

C. USING PACKED VARIABLES AS PARAMETERS 

D. PACK AND UNPACK STANDARD PROCEDURES 
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9. PARAMETRIC PROCEDURES AND FUNCTIONS 

10. PROGRAM HEADINGS 

11. READ AND READLN 

12. RESET 

13. REWRITE 

14. SEGMENT PROCEDURES 

1 5. SETS 

16. STRINGS 

17. WRITE AND WRITELN 

17. 5 EXTENDED COMPARISONS 

18. MISC. IMPLEMENTATION SIZE LIMITS 

19. SUMMARY OF U. C. S. D. INTRINSICS 



1. CASE STATEMENTS 

Jensen and Wirth an page 31 state that if there is no label 
equal to the value of the case statement selector, then the result of 
the case statement is undefined. U. C. S. D. Pascal defines that if there 
is no label matching the value of the case selector then the next 
statement executed is the statement following the case statement. For 
example, the following sample program will only output the line "THAT'S 
ALL FOLKS'* since the case statement will "fall through" to the WRITELN 
statement following the case statement: 

PROGRAM FALLTHROUGHi 

VAR CH: CHAR; 

BEGIN 

CH:='A'i 

CASE CH OF 

'B': WRITELN (OUTPUT, 'HI THERE'),- 

'C: WRITELN (OUTPUT, 'THE CHARACTER IS A "C") 

END; 

WRITELN (OUTPUT, 'THAT"S ALL FOLKS' >i 
END. 

Contrary to the sgntax diagrams for <field list> on pages 116— 
11U of Jensen and Wirth, the U. C. S. D. Pascal compiler will not permit a 
semicolon before the "END" of a case variant field declaration within a 
RECORD declaration. See Table 6 for revised syntax diagrams for <field 
list>. 
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2. COMMENTS 

The U C S. D. Pascal compiler recognizes any text appearing 
between either the symbols "<*" and ■'*>" or the symbols »<" and »>• as 
a comment. Text appearing between these symbols is ignored by the 
compiler unless the first character of the comment is a dollarsign, in 
which case the comment is interpreted as a compiler control comment. 
(See section 1.6 of this documentation entitled "Pascal Compiler" for 
details on compiler control comments. ) 

Note that if the beginning of the comment is delimited by the 
»<*" symbol, then the end of the comment must be delimited by the 
matching "*>" symbol, rather than an occurance of the ">" symbol. In 
the case where the reverse is true. (i.e. when the comment begins with 
the "-C" symbol) the comment continues until the matching > symbol 
appears. This feature allows a user to "comment out" a section of a 
program which itself contains comments. For example: 

< XCP : = XCP + li <* ADJUST FOR SPECIAL CASE... *> > 

Note that the compiler does not keep track of nested comments, 
when it encounters a comment symbol, it scans the text for the matching 
comment symbol. i.e. the following text will result in a syntax error: 

(* THIS IS A COMMENT <* NESTED COMMENT *> END OF FIRST COMMENT *> 

"error here. 

3. DYNAMIC MEMORY ALLOCATION 

The standard procedure DISPOSE defined on page 158 of Jensen 
and Wirth is not implemented in U. C. S. D. Pascal. However, the function 
of DISPOSE can be approximated by a combined use of the U. C. S. D. 
intrinsic* MARK and RELEASE. The process of recovering ™^°^ ^" as 
described below is only an approximation to the function of DISPOSE 
in that one cannot explicitly ask that the storage occupied by one 
particular variable be released by the system for other uses. 

The current U. C. S. D. implementation allocates storage for 
variables created by use of the standard procedure NEW in a stack-like 
structure called the "heap". The following program is a simple 
demonstration of how MARK and RELEASE can be used to cause changes in 
the size of the heap. 

PROGRAM SMALLHEAPj 

TYPE PERSON= 
RECORD 

NAME: PACKED ARRAYCO. .153 OF CHARi 
ID: INTEGER 
END; 
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VAR P: "PERSONi (* " A " means "pointer to" as defined in J&W «) 
HEAP: "• INTEGER; 

BEGIN 

MARK(HEAP). 

NEW<P)i 

P~. NAME:='FARKLE, HENRY J. '; 

P-\ ID: = 999* 

RELEASE ( HEAP )i 
END. 



The 
current top 
declared to 
fact HEAP co 
parameter su 
a pointer th 
traditional. 
INTEGER prov 
interf erring 
inaccessable 
point in the 



above program first calls MARK to place the address of the 
of heap into the variable HEAP. The fact that HEAP was 
be a pointer to an INTEGER is not really important. In 
old have been declared as pointing to almost anything. The 
pplied to MARK must be a pointer variable, but need not be 
at is declared to be a pointer to an INTEGER as is 

(Declaring a pointer variable to be a pointer to an 
es to be a particularly handy construct for deliberately 

with the contents of memory which is otherwise 
). Below is a pictorial description of the heap at this 

program's execution: 



TOP OF HEAP — > 



contents of heap at 
start of program 



.! < HEAP 

■ 

1 
t 



Next the program calls the standard procedure NEW and this 
results in a new variable P~ which is located in the heap as shown in 
the diagram below: 



TOP OF HEAP > 



P A 



< HEAP 



contents of heap at ! 
start of program * 

1 



Once the program no longer needs the variable P A and wishes to 
"release" this memory space to the system for other uses, it calls 
RELEASE which resets the top of heap to the address contained in the 
variable HEAP. 
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If the above sample program had done a series of calls to the 
standard procedure NEW between the calls to MARK and RELEASE, then the 
effect would have been that the storage occupied by several variables 
would be released at once. Also note that due to the stack nature of 
the heap it is not possible to release the memory space used by a 
single item in the middle of the heap. It is because of this that the 
use of MARK and RELEASE can only approximate the function of DISPOSE as 
described in Jensen and Wirth. 

Furthermore, it should be noted. that careless use of the 
intrinsics MARK and RELEASE can lead to "dangling pointers" which point 
to areas of memory which are no longer a part of the defined heap 
space. 

4. EOF<F> 

To set EOF to TRUE for a textfile F which is being used as an 
input file from the CONSOLE device, the user must type the EOF 
character The system default EOF character is the control-C 
character. The EOF character can be altered by a suitable 
reconfiguration of the system variable SYSCOM<\ CRTINFO. EOF using 
SETUP. <For further information concerning system configuration and 
the SETUP program see Section 4.3 of this documentation) 

For any FILE F. if F is closed, then EOF<F) will return the 
value TRUE. If EOF<F) is TRUE , and F is a FILE of type TEXT, then 
EOLN<F) is also TRUE. After a RESET<F), EOF(F) is FALSE. If EOF<F> 
becomes TRUE during a GET(F) or a READ(F, . . . ) then the data thereby 
obtained is not valid. 

When a user program starts execution, the system performs a 
RESET on the predeclared files INPUT, OUTPUT, and KEYBOARD <See 
section of this document on the procedure READ for further details 
concerning the predeclared file KEYBOARD) 

As defined in Jensen and Wirth, EOF and EOLN by default will 
refer to the file INPUT if no file identifier is specified. 

5. EOLN(F) 

EOLN<F) is defined only if F is a textfile. F is a textfile if 
the <type> of the window variable, F-\ is of type CHAR. EOLN becomes 
TRUE only after reading the end of line character. The end of line 
character is a carriage return. In the example program below, care 
must be taken in regard to when the carriage return is typed while 
inputting data: 

PROGRAM ADDLINES; 
VAR K, SUM: INTEGER* 
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BEGIN 

WHILE NOT EOF (INPUT) DO 
BEGIN 
SUM: =0; 

READ (INPUT, K)i 
WHILE NOT EOLNC INPUT) DO 
BEGIN 

BUM: =SUM+K; 
READ( INPUT, K); 
END; 
WRITELN (OUTPUT ); 

WRITELN (OUTPUT, 'THE SUM FOR THIS LINE IS ', SUM); 
END; 
END. 

In order to cause EOLN(F) to become TRUE in the above program, 
^ aT I la9 ! TetuTn must be tWPed immediately after the last digit of 
e last integer on that line. If instead you type a space, followed 
J«iJ ! «"«S» return, then EOLN will remain FALSE and another READ 
oix i. i take place. 

A. FILES 

In regard to the subject of files, the 1.4 release contains 

Jr b "ina C u a c 9 sV T r th ? V rel r 5e " TheSS Chan « eS WeT>e ^de in order 
to bring U.C.S.D. Pascal closer to the standard definition of the 

language. ,hese changes include the addition of a new file <tuDe> 

o? the lT EH fll ,JE """"•" in •««•« A below) and the introSuction 
of the use of the standard predeclared identifiers RESET and REWRITE as 
sunonyms for the U.C.S.D. intrinsics OPENOLD and OPENNEW. 

.,iii r 1* <nen * ioned in thB ab ° v * paragraph, the 1.4 Pascal compiler 
nPPMn. n "If ° SJjppOTt the use °* OPENOLD and OPENNEW by treating 

REWR?TE aS In e i^t e ; P - U1 T alent t . REBET and ° PENNEW " •»•*»■ •luivl.St to 
nppwwlu J? later-releases the predeclared identifiers OPENOLD and 
OPENNEW will be "phased- out" and RESET and REWRITE used in their 

5on»,Tr? e ! the SBtticms ° r this document entitled "RESET" and 
NtWRlTE" for further details) 

A. INTERACTIVE FILES 

kind TWt£Lcttu£V" V 6163 !! ° f the s « steffl ' * new predeclared file 
It-?*? *TJ VE h f, s been added - F il«* of <type> INTERACTIVE behave 
exactly as files of <type> TEXT were defined in previous releases of 
the system. The standard predeclared files INPUT and OUTPUT will 
alluays be defined to be of <type> INTERACTIVE. All files of ami 
<type^ other than INTERACTIVE are defined to operate exactly as 
described in [Jensen and Wirth. Additionally, for files which are not 
p~S?r! INTERACT:VE ' th * definitions of EOF(F), EOLN(F), and 
KtfaETIF) are exactly as presented in Jensen and Wirth. (For a more 
detailed discussion of files of <t ype > INTERACTIVE see the section of 
this document entitled "READ AND READLN" and "RESET". ) 
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B. UNTYPED FILES 

U. C. S. D. Pascal has one type of file declaration which in not 
found in the syntax of Jensen and Wirth. This type of file declaration 
and its use is demonstrated in the sample program below: 

<«*!-*) 

PROGRAM FILEDEMO; 

VAR G. F: FILE; 

BUFFER: PACKED ARRAYCO. . 51 ID OF CHAR; 
BLOCKNUMBER, BLOCKSTRANSFERRED: INTEGER; 
BADIO: BOOLEAN; 

<* This program reads a diskfile called 'SOURCE. DATA' and 

copies the file into another diskfile called 'DESTINATION' 
using untyped files and the intrinsics BLOCKREAD and 
BLOCKWRITE *) 

BEGIN 

BADIO: =FALSE; 
RESET<G» 'SOURCE. DATA'); 
REWRITE(F. 'DESTINATION'); 
BLOCKNUMBER: =0; 

BLOCKSTRANSFERRED: =BLOCKREAD(G, BUFFER, 1, BLOCKNUMBER); 
WHILE (NOT EOF(G>> AND (I0RESULT=O) AND (NOT BADIO) AND 
<BLOCKSTRANSFERRED=l) DO 

BEGIN 

BLOCKSTRANSFERRED: -BLOCKWRITE <F, BUFFER. 1 , BLOCKNUMBER ) ; 
BADIO: =((BL0CKSTRANSFERRED<1) OR ( IORESULTOO) ); 
BLOCKNUMBER: =BLOCKNUMBER+l; 

BLOCKSTRANSFERRED: =BLOCKREAD(G. BUFFER. 1, BLOCKNUMBER); 
END; 
CLOSE (F. LOCK); 
END. 

The two files which are declared and used in the above sample 
program are both untyped files. An untyped file F can be thought of as 
a file without a window vari "lie F A to which all I/O must be 
accomplished by using the functions BLOCKREAD and BLOCKWRITE. Note that 
any number of blocks can be transferred using either BLOCKREAD or 
BLOCKWRITE. The functions return the actual number of blacks read. A 
somewhat sneaky approach to doing a quick transfer would be: 

WHILE BLOCKWRITE(F, BUFFER. BLOCKREADCG. BUFFER. BUFBLOCKS) >>0 DO (*IT*>; 

This is. however considered unclean. The program above has been 
compiled using the I-Compile Time Option, thereby requiring that the 
function IORESULT and the number of blocks transferred be checked after 
each BLOCKREAD or BLOCKWRITE in order to detect any I/O errors that 
might have occured. 
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C. RANDOM ACCESS OF FILES 

The U. C. S. D. implementation of structured files supports the 
ability to randomly access individual records within a file by means of 
the intrinsic SEEK. SEEK expects two parameters* the first parameter 
being the file identifier/ and the second parameter is an integer 
•pecifying the record number to which the window should be moved. The 
first record of a structured file is numbered record 0. The following 
sample program demonstrates the use of SEEK to randomly access and 
update records in a file: 

PROGRAM RANDOMACCESS; 
VAR DISK: FILE OF 
RECORD 

NAME: STRINGC203; 
DAY, MONTH, YEAR: INTEGER; 
ADDRESS: PACKED ARRAYCO. . 493 OF CHARi 
ALIVE: BOOLEAN 
ENDi 
RECNUMBER: INTEGERi 
CH: CHARi 

BEGIN 

RESET(D?SK, 'RECORDS. DATA ' ); 
WHILE NOT EOF( INPUT) DO 
BEGIN 

WR1TE<0UTPUT, 'Enter record number >'); 

READ (INPUT. RECNUMBER); 
SEEK ( DI SK, RECNUMBER ) ; 
GET<DISK); 
WITH DISK A DO 
BEGIN 

WR I TELN( OUTPUT, NAME, DAY, MONTH, YEAR, ADDRESS); 

WRITE<OUTPUT, 'Enter correct name >'); 

READLN< INPUT, NAME); 



END; 

SEEKCDISK, RECNUMBER); (# Must repoint the window 

back to the record since 
GET<DISK) advances the 
window to the next record 
after loading DISK' 1 - *> 

PUT(DISK); 

END; 
END. 

Attempts to PUT records beyond the physical end of file will 
set EOF to the value TRUE. (The physical end of file is the point where 
the next record in the file will overwrite another file on the disk. ) 
SEEK always sets EOF and EOLN to FALSE. The subsequent GET or PUT will 
set these conditions as is appropriate. 
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D. READ AND WRITE FROM ARBITRARILY TYPED FILES 

It is not currently possible to READ or WRITE to files of type 
other than TEXT or FILE OF CHAR. 



7. GOTO AND EXIT STATEMENTS 

U C S D has a more limited form of GOTO statement than is 
defined as the standard in Jensen and Wirth. U. C. S. D. 's GOTO statement 
prohibits a GOTO statement to a label which is not within the same 
block as the GOTO statement itself. The examples presented on pages 31- 
32 of Jensen and Wirth are not legal in U. C. S. D. Pascal. 

EXIT is a U. C. S. D. extension which accepts as its single 
parameter the identifier of a procedure to be exited. Not » ♦•"J**!'" use 
of an EXIT statement to exit a FUNCTION can result in the FUNCTION 
returning undefined values if no assignment to the FUNCTION identifier 
is executed prior to the execution of the EXIT statement. Below is an 
example of the use of the EXIT statement: 

PROGRAM EXITDEMOi 
VAR T: STRING; 

CN: INTEGER) 

PROCEDURE Gi FORWARD; 

PROCEDURE Pi 
BEGIN 

READLN(T); 

WRITELN(T); 

IF TE13='#' THEN EXIT<Q>; 

WRITELN( 'LEAVE P')i 
END; 

PROCEDURE Q; 
BEGIN 

P; 

WRITELNC 'LEAVE Q'); 
END; 

PROCEDURE R; 
BEGIN 

IF CN <= 10 THEN G; 

WRITELN< 'LEAVE R')i 
END; 

BEGIN 
CN: =0; 

WHILE NOT EOF DO 
BEGIN 

CN:=CN+1; 
R; 

WRITELN; 
END; 
END. 
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If the above program mere supplied the following input 

THIS IS THE FIRST STRING 

LAST STRING 

then the following output will result: 

THIS IS THE FIRST STRING 
LEAVE P 
LEAVE Q 
LEAVE R 

# 
LEAVE R 

LAST STRING 
LEAVE P 
LEAVE Q 
LEAVE R 

* ,, J^* EXIT<QX statement causes the PROCEDURE P to be terminated 
followed by the PROCEDURE Q. Processing continues following the call to 

».PAu£ d o., PR ? C f!? URE R - ThUS the 0nly line of oot P ut following -#- is 

LEAVE R" at the end of PROCEDURE R. In the two cases where the EXIT<Q> 
statement is not executed processing proceeds normally through the 
terminations of procedure? P and G, 

If the procedure identifier passed to EXIT is a recursive 
procedure then the most recent invocation of that procedure will be 
exited. Also, xf m the above example program, one or both of the 

I«SJ?iI , ?in«^i Q - ha !! declared and °P ened so ^ l«al files, then an 
implicit CLOSE(F) is done when the EXIT(G) statement was executed, just 
as if the procedures P and Q had terminated normally. 

The creation of the EXIT statement at U. C. S. D. was inspired by 
the occasional need for a straightforward means to abort a complicated 
and possibly deeply nested series of procedure calls upon encountering 
an error. An example of such a use of the EXIT statement can be found 
in the recursive descent U. C. S. D. Pascal compiler. However, the 
routine use of the EXIT statement is discouraged 
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8. PACKED VARIABLES 
A. PACKED ARRAYS 

The U. C. S. D compiler will perform packing of arrays and 
records if the ARRAY or RECORD declaration is preceded by the word 
PACKED. For example/ consider the following declarations: 

A: ARRAYCO. . 93 OF CHAR) 

B: PACKED ARRAYCO. . 93 OF CHAR; 

The array A will occupy ten 16 bit words of memoryi with each 
element of the array occupying 1 word. The PACKED ARRAY Q on the other 
hand will occupy a total of only 5 words, since each 16 bit word 
contains two 8 bit characters. In this manner each element of the 
PACKED ARRAY B is 8 bits long. 

PACKED ARRAYS need not be restricted to arrays of type CHAR, 
for example: 

C: PACKED ARRAYCO. . 13 OF 0. . 3i 

D: PACKED ARRAYC1. . 93 OF SET OF 0. . 15; 

D2: PACKED ARRAYCO. . 239, 0. . 3193 OF BOOLEAN; 

Each element of the PACKED ARRAY C is only 2 bits long, since 
only 2 bits are needed to represent the values in the range 0. . 3. 
Therefore C occupies only one 16 bit word of memory, and 12 of the bits 
in that word are unused. The PACKED ARRAY D is a 9 word array, since 
each element of D is a SET which can be represented in a minimum of 16 
bits. Each element of a PACKED ARRAY OF BOOLEAN, as in the case of D2 
in the above example, occupies only one bit. 

The following 2 declarations are not equivalent due to the 
recursive nature of the compiler: 

E: PACKED ARRAYCO. . 93 OF ARRAYCO. . 33 OF CHAR; 

F: PACKED ARRAYCO. . 9, 0. . 33 OF CHAR; 

The second occurrence of the reserved word ARRAY in the 
declaration of E causes the packing option in the compiler to be turned 
off. The net result is that E becomes an unpacked array of 40 words. On 
the otherhand, the PACKED ARRAY F is an array occupying 20 total words 
because the reserved word ARRAY occurs only once in the declaration. If 
E had been declared as 

E: PACKED ARRAYCO. . 93 OF PACKED ARRAYCO. . 33 OF CHAR; 
or as 
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E: ARRAYCO. . 93 OF PACKED ARRAYCO. . 33 OF CHAR > 

then F and E would have had identical configurations. 

t * .!" f hort ' the reserved word PACKED only has true significance 

»f rPAeipn fppAv PP uK ranCe °J t h J *••""* ««rd ARRAY in a declaration 
of a PACKED ARRAY. When in doubt a good rule of thumb when declaring a 
multidimensional PACKED ARRAY is to place the reserved word PACKED 
before every appearance of the reserved word ARRAY to insure that the 
resultant arra^ will in fact be PACKED. 

The resultant array will only be packed if the final type of 

•2 J!i?r r ! g J* SCa ^' V: subra "9 e ' or a set which can be represented in 
8 bits or less. (The final type of can also be BOOLEAN or CHAR). The 
following declaration will result in no packing whatsoever because the 
final type of the arTat) cannot be represented in a field of 6 bits: 

G: PACKED ARRAYCO. . 3D OF 0. . 1000; 

G will be an array which occupies 4 16 bit words. 

«.* * Pa ^ k ir 9 n f ver occurs across word boundaries. This means that if 
tt>e type of the element to be packed requires a number of bits which 
does not divide evenly into 16, then there will be some unused bits at 
the high order end of each of the words which comprise the array. 

™r ~u*b ^ e *t*i a '****"% instant may rtee assigned *o m PACKED ARRAY 
OF CHAR bift not to *n unpacked ARRAY OF -CHAR. Litest**, comparisons 
between an ARRAY OF CHAR and a string constant are illegal (These are 
temoorary implementation restrictions which will be removed in the next 
major release.) Because of their different sizes, PACKED ARRAYs cannot 
be compared to ordinary unpacked ARRAYs. For further information 
regarding PACKED ARRAYs OF CHARacters see section 16 STRINGS in this 
document 



A PACKED ARRAY OF CHAR may be output with a single write statement: 



PROGRAM VERYSLICK; 

VAR T: PACKED ARRAYCO. . 103 OF CHAR; 

BEGIN 

T:= 'HELLO THERE'; 

WRITELN(T); 
END. 



v*™ e ^^ iU t! iZ K ti0n0 ' P * PACKED ARRAY OF CHAR can be accomplished 
very efficiently by using the U. C. S. D. intrinsic* FILLCHAR and SIZEDF: 



PROGRAM FILLFAST; 

VAR A: PACKED ARRAYCO. . 103 OF CHAR; 

BEGIN 

FILLCHAR<ACO:, SIZEOF(A), ' '); 
END. 
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The above sample, program fills the entire PACKED ARRAY A with 
blanks (For further documentation on FILLCHAR. SIZEOF. and the other 
U C S D. intrinsics see section 2.1.5 of this documentation entitled 
"CHARACTER ARRAY MANIPULATION INTRINSICS). 



B. 



PACKED RECORDS 



The following RECORD declaration declares a RECORD with 4 
fields. The entire RECORD occupies one 16 bit word as a result of 
declaring it to be a PACKED RECDRD. 

VAR R: PACKED RECORD 
I,J,K: 0..31i 
B: BOOLEAN 
END) _, „ u 

The variables I. J. K each take up 5 bits in the word. The 
boolean variable B is allocated in the 16'th bit of the same word. 

In much the same manner that PACKED ARRAYs can be 
multidimensional PACKED ARRAYs, PACKED RECORDS may contain fields which 
themselves are PACKED RECORDS or PACKED ARRAYS. Again, slight 
difference*, in the way in which declarations are made will affect the 
degree of packing achieved. For example, note that the following two 
declarations are not equivalent: 



VAR A: PACKED RECORD 
C: INTEGER; 
F: PACKED RECORD 
R: CHAR; 
K: BOOLEAN 
END; 
H: PACKED ARRAYCO. 
END; 



33 OF CHAR 



VAR B: PACKED RECORD 
C: INTEGER; 
F: RECORD 
R:CHAR; 
K: BOOLEAN 
END; 
H: PACKED ARRAYCO. 
END; 



3D OF CHAR 



As with the reserved 
appear with every occurance 
the PACKED RECORD to retain 
of the RECORD. In the above 
packed as possible. In B, th 
occupies two 16 bit words. I 
into one word. However, it i 
unpacked ARRAY or RECORD whi 
always start at the beginnin 
that in the case of A in the 
does not completely fill one 
of the next word boundary. 



word ARRAY, the reserved word PACKED must 
of the reserved word RECORD in order for 
its packed qualities throughout all fields 
example, only the RECORD A is as completely 
e F field is not packed and therefore 
n contrast A. F has all of its fields packed 
s important to note that a packed or 
ch is a field of a PACKED RECORD will 
g of the next word boundary. This means 
above example, even though the F field 
word, the H field starts at the beginning 



A case variant may be used as the last field 
RECORD, and the amount of space allocated to it will 
largest variant amoung the various cases. The actual 
packing is far beyond the scope of this document. 



of a PACKED 
be the size of 
nature of the 



the 
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VAR K: PACKED RECORD 
B: BOOLEAN; 
CASE F: BOOLEAN OF 
TRUE: (Z: INTEGER); 

FALSE: (M: PACKED ARRAYCO. . 3D OF CHAR) 
END 
END; 
In the above example the B and F fields are stored in two bits 
of the first 16 bit word of the record. The remaining 14 bits are not 
used. The size of the case variant field is always the size of the 
largest variant, so in the above example, the case variant field will 
occupy two words. Thus the entire PACKED RECORD will occupy 3 words. 

C. USING PACKED VARIABLES AS PARAMETERS 

No element of a PACKED ARRAY or field of a PACKED RECORD may be 
passed as a variable (call-by-reference) parameter to a PROCEDURE or 
FUNCTION. Packed variables may, however, be passed as call by value 
parameters, (as stated in Jensen and Wirth. ) 



D. PACK AND UNPACK STANDARD PROCEDURES 

.. i ^ w , i if.", C " S,D ' Pascal does not support the standard procedures PACK 
ana UNPACK as defined in Jensen and Wirth on safe 106. 

9. PARAMETRIC PROCEDURES AND FUNCTIONS 

U. C. S. D. Pascal does not support the construct in which 
PROCEDURES and FUNCTIONS may be declared as formal parameters in the 
parameter list of a PROCEDURE or FUNCTION. 

See Section 6.6 for a revised syntax diagram of <parameter- 

* X St/, 

10. PROGRAM HEADINGS 

Although the U. C. S. D. Pascal compiler will permit a list of 
file parameters to be present following the program identifier, these 
parameters are ignored by the compiler and will have no affect on the 
program being compiled. As a result the following two program headinos 
are equivalent: a 

PROGRAM DEMO< INPUT, OUTPUT); and PROGRAM DEMO; 
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With either of the above program headings, a user program will 
have three files predeclared and opened by the system. These 
predeclared files are: INPUT. OUTPUT, and KEYBOARD and are defined to 
be of <type> INTERACTIVE. If the program wishes to declare any 
additional files, then these file declarations most be declared 
together with the program's other VAR declarations. 

11. READ AND READLN 

Given the following declarations: 

VAR CH:CHAR; 

F: TEXT; <* TYPE TEXT = FILE OF CHAR *) 

then the statement READ(F.CH) is defined by Jensen and Wirth on page 85 
to be equivalent to the two statement sequence: 

CH: =F a j 
GET(F); 

In other words, the standard definition of the standard 
procedure READ requires that the process of opening a file load the 
"window variable" F"" with the first character of the file. However, in 
an interactive programming environment, it is not convenient to require 
a user to type in the first character of the input file at the time 
when the file is opened. If this were the case, every program would 
"hang" until a character was typed whether or not the program performed 
any input operations at all. In order to overcome this problem, 
U C S. D. Pascal defines an additional file <type> called INTERACTIVE. 
Declaring a file F to be of <type> INTERACTIVE is equivalent to 
declaring F to be of type TEXT, with the difference being that the # 
definition of the statement READ<F, CH) is the following two statement 
sequence which is the reverse of the sequence specified by the standard 
definition for files of <type> TEXT: 

GET(F)J 
CH: =F"\- 

The difference mentioned above affects the way in which EOLN 
must be used within a program which is reading from a textfile of type 
INTERACTIVE. As mentioned in Section 5 of this document, EOLN becomes 
true only after reading the end of line character which is a carriage 
return. When this end of line character is read, EOLN is set to true 
and the character returned as a result of the READ will be a blank. In 
the example program fragments below, the left fragment is an example 
program taken from Jensen and Wirth in which only the RESET and REWRITE 
statements have been altered. The program on the left will correctly 
copy the textfile represented by the file X to the file Y. The program 
fragment on the right performes a similiar task, except that the 
source file being copied is declared to be a file of <type> 
INTERACTIVE, thereby forcing a slight change in the program in order to 
produce the desired result. 
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PROGRAM JANDW; 
VAR X, Y: TEXT ; 
CH: CHAR; 
BEGIN 

RESET< X, 'SOURCE. TEXT ' ) ; 
REWRITE(Y, 'SOMETHING. TEXT'); 
WHILE NOT EOF<X) DO 
BEGIN 

WHILE NOT EOLN(X) DO 
BEGIN 

READ(XiCH); 
WRITECY, CH); 

END; 
READLN(X); 
WRITELN(Y); 
END; 
CLOSE <Y, LOCK); 
END. 



PROGRAM UCSDVERSION; 
VAR X, Y: INTERACTIVE; 

CH: CHAR; 
BEGIN 

RESET<X, 'CONSOLE: '); 
REWRITEtY, 'SOMETHING. TEXT'); 
WHILE NOT EOF(X) DO 
BEGIN 

WHILE NOT EOLN(X) DO 
BEGIN 

READCX, CH); 
IF NOT EOLN(X) THEN 
WRITE<Y, CH); 
END; 
READLN(X); 
WRITELN<Y); 
END; 
CLOSE <Y. LOCK); 
END. 



Note that the textfiles X and Y in the above two programs had 
to be opened by using the U. C. S. D. extended form of the standard 
procedures RESET and REWRITE. (In previous releases, this function was 
performed by the U. C. S. D. intrinsics OPENOLD and OPENNEW. The 1.4 
Pascal compiler still supports the use of OPENOLD and OPENNEW by 
treating these predeclared identifiers as synonomous with RESET and 
REWRITE respectively. Eventually OPENOLD and OPENNEW will be "phased- 
out" and no longer supported by the Pascal compiler. ) 

The IF statement in the interactive version of the program 
fragment on the left is needed in order for the file Y to become an 
exact copy of the textfile X. Without the IF statement, an extra blank 
character is appended to the end of each line of the file Y. This extra 
blank corresponds to the end of line character which is returned as a 
blank according to the standard definition in Jensen and Wirth. Note 
that the CLOSE intrinsic was applied to the file Y in both versions of 
the program in order to make it a permanent file in the disk directoru 
called "SOMETHING. TEXT". The textfile X could likewise have been a 
diskfile instead of coming from the CONSOLE device in the right hand 
version of the program. 

There are three predeclared textfiles which are automatically 
opened by the system for a user program. These files are INPUT, OUTPUT, 
and KEYBOARD. The file INPUT defaults to the CONSOLE device and is 
defined to allways be of <type> INTERACTIVE. The statement 
READ( INPUT, CH) where CH is a character variable, will echo the 
character typed from the CONSOLE back to the CONSOLE device WRITE 
statements to the file OUTPUT will by default cause the output to 
appear on the CONSOLE device. The file KEYBOARD is the non-echoing 
equivalent to INPUT. For example, the two statements 

READ < KEYBOARD, CH ) ; 
WRITE ( OUTPUT, CH); 
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are equivalent to the single statement READ< INPUT, CH). 

For more documentation regarding the use of files see the other 
sections of this document describing FILES, EOF, EOLN, WRITE AND 
WRITELN, and RESET. Additonal documentation on the U. C. S. D. intrinsics 
can be found in Section 2.1.2 of this documentation entitled 
"INPUT/OUTPUT INTRINSICS". 



12. RESET <F) 

The standard procedure RESET as defined on page 9 of Jensen and 
Wirth resets the file window to the beginning of the file F. The next 
GET(F) or PUT(F) will affect record number O of the file. In addition, 
the standard definition of RESET(F) states that the window variable F~ 
be loaded with the first record in the file. The U. C. S. D. 
implementation of RESET(F) operates exactly as defined by the standard 
definition, unless the file F is declared to be of <type> INTERACTIVE 
in which case the statement RESET(F) points the file window to the 
start of the file, but does not load the window variable F A . Thus for 
files of <type> INTERACTIVE the U. C. S. D. equivalent to the standard 
definition of RESET<F) is the two statement sequence: 

RESET <F>> 
GET(F)J 

U. C. S. D. Pascal defines an alternative form of the standard 
procedure RESET which is used to open a pre-existing file. In this 
alternative form, RESET has two parameters, the first parameter is the 
file identifier, the second parameter is either a STRING constant or 
variable which corresponds to the directory filename of the file being 
opened. For further documentation regarding the use of RESET to open a 
file see section 2. 1. 1 of this documentation entitled "INPUT/OUTPUT 
INTRINSICS". 

13. REWRITE<F) 

The standard procedure REWRITE is used to open and create a new 
file. REWRITE has two parameters, the first parameter being the file 
identifier, the second parameter corresponds to the directory filename 
of the file being opened, and must be either a STRING constant or 
variable. For example the statement REWRITE CF, 'SOMEINFO. TEXT ' > causes 
the file F to be opened for output, and if the file is locked onto the 
disk, the filename of the file in the directory will be 
"SOMEINFO. TEXT". REWRITE performs the equivalent action as performed 
by the U. C. S. D. OPENNEW intrinsic and will eventually replace OPENNEW 
as the intrinsic used to open a previously non-existent file. For 
further documentation regarding the use of REWRITE to open a file, see 
section 2.1.1 of this documentation entitled "INPUT/OUTPUT INTRINSICS". 

14. SEGMENT PROCEDURES 
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The concept of the SEGMENT PROCEDURE is a U. C. S. D. extension to 
Pascal/ the primary purpose of which is to allow a programmer the 
ability to explicitly partition a large program into segments/ of which 
only a few need be resident in memory at any one time. The U. C. S. D. 
Pascal system is necessarily partitioned in this manner because it is 
too large to fit into the memory of most small interactive computers 
all at once. 

The following program is an example of the use of SEGMENT PROCEDURES: 

PROGRAM SEGMENTDEMOi 

<« GLOBAL DECLARATIONS GO HERE *) 

PROCEDURE PR INT (T: STRING); 
FORWARD* 

SEGMENT PROCEDURE ONE; 
BEGIN 

PR I NT ( 'SEGMENT NUMBER ONE'); 
END; 

SEGMENT PROCEDURE TWO; 

SEGMENT PROCEDURE THREE; 
BEGIN 
ONE; 

PR I NT ('SEGMENT NUMBER THREE'); 
END; 
BEGIN <* SEGMENT NUMBER TWO *) 
THREE; 

PR INT ('SEGMENT NUMBER TWO'); 
END; 

PROCEDURE PRINT; 
BEGIN 

WR I TELN( OUTPUT/ T); 
END; 

BEGIN 

TWO; 

WRITELN('I"M DONE'); 
END. 

The above program will give the following output: 

SEGMENT NUMBER ONE 

SEGMENT NUMBER THREE 

SEGMENT NUNDER TWO 
I 'M DDNb 

Fot further documentation on SEGMENT PROCEDURES, their use and 
the syntax governing their declaration see Section 3.3 of this 
documentation entitled "SEGMENT PROCEDURES". 
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1 5. SETS 

U C S D Pascal supports all of the constructs defined for sets 
on pages 50-51 of Jensen and Wirth. A set can be at most 255 words in 
size, and have at most 4080 elements. 

Comparisons and operations on sets are allowed only between 
sets which are either of the same base type or subranges of the same 
underlying type. For example, in the sample program below, the base 
type of the set S is the subrange type O. . 49, while the base type of 
the set R is the subrange type 1. . 100. However, the underlying type of 
both sets is the type INTEGER, which by the above definition of 
compatability, implies that the comparisons and operations on the sets 
S and R in the following program are legal: 

PROGRAM SETCOMPARE; 
VAR S: SET OF 0. . 49; 
R: SET OF 1. . 100; 

BEGIN 

S: = CO, 5, 10, 15, 20, 25, 30, 35, 40, 453; 
R:= CIO, 20, 30, 40, 50, 60, 70, 80, 903; 
IF S = R THEN 

WRITELN< '. . . oops . . . ') 
ELSE 

WRITELNC 'sets work'); 
S :~ S + Ri 
END. 

However, in the following example the construct 

is not legal since the two sets are sets of two distinct underlying types. 

PROGRAM ILLEGALSETSi 
TYPE STUFF=< ZERO, ONE, TWO); 
VAR I: SET OF STUFF; 
J: SET OF 0. . 2j 

BEGIN 

I:= CZER03; 

J:= CI, 23; 

IF I = J THEN . . . «« error here 
END. 



16. STRINGS 

U C S D Pascal has an additional predeclared type STRING. 
Variables' of typr STRING are essentially PACKED ARRAYs OF CHAR that 
have a dynamic LENGTH attribute, the value of which is returned by the 
STRING intrinsic LENGTH. The default maximum LENGTH of a STRING 
variable is 80 characters. This default maximum LENGTH can be 
overridden in the declaration of a STRING variable by appending the 
desired LENGTH of the STRING variable within C 3 after the reserved 
type identifier STRING. Examples of declarations of STRING variables 
appear below: 
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TITLE: STRING; <* defaults to a maximum length of BO characters *) 

NAME: STRINGC203; (* allows the STRING to be a maximum of 20 

characters*) 

255 c ha rartL! ha l a . STRIN ° v f i « bl « ha * an absolute maximum length of 
?hf «!T !• * 5 * l 9 nmen * s to ^ring variables can be performed using 

TITLE—' THIS IS A TITLE '; 

or 
READLN< TITLE); 

or 
NAME:= COPY<TITLE, 1,20); 

..*. LEN^'.rt'ir^Lir'^r".*.^:"" * sTRrNo -• h -«' "- » *• 

TITLEC13:= 'A'; 

TITLEC LENGTH(TITLE) 3: = '2'; 

4mv..i, ?«rE£i* b 'i* ° f tyPE STRING may not *. indexed beyond its current 
rttfnamie LENGTH, for example, the following sequence will result in In 
invalid index run time error: result in an 

TITLE: « '1234'; 
TITLEI53:- '5'; 

of tunp q T Rfwn able °\^ pe STRIN0 ffla « be compared to any other variable 
LENGTH Unl ^ a Strin9 constant n ° matt ^ "hat its current dynamic 
vS.?Ik'i Unll * e t com P a '' 1S0 ^ involving variables of other types, STRING 
variables may be compared to items of a different LENGTH The *' K1NS 
d!mni!i n V° mpa I i ? Cn iS lexico 3™Phical. The following program is a 
demonstration of legal comparisons involving variables of tjpe STRING: 

PROGRAM COMPARESTRINGSj 
VAR S: STRING; 

T: STRINGC403; 

BEGIN 

S:= 'SOMETHING'; 

T: = 'SOMETHING BIGGER'; 

IF S « T THEN 

WRITELN< 'Strings don"t work too well') 
ELSE 

IF S > T THEN 

WRITELN<S. ' is greater than ',T> 
ELSE 

IF S < T THEN 

WRITELN<B, ' is less than ',T); 
IF S = 'SOMETHING' THEN 

WRITELN<S, ' equals ',S); 
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IF S > 'SAMETHINO' THEN 

WRITELNCS, ' is greater than SAMETHING'); 
- IF S «= 'SOMETHING ' THEN 

WR I TELN < ' B LANKS DON ' ' T COUNT ' > 
ELSE 

WR I TELN ( 'BLANKS APPEAR TO MAKE A DIFFERENCE'); 

S: = 'XXX'; 
T: = 'ABCDEF'; 
IF S > T THEN 

WRITELNCS, ' is greater than ST) 
ELSE 

WRITELNCS,' is less than M)i 
END. 

The above program should produce the following output: 

SOMETHING is less than SOMETHING BIGGER 
SOMETHING equals SOMETHING 
SOMETHING is greater than SAMETHING 
BLANKS APPEAR TO MAKE A DIFFERENCE 
XXX is greater than ABCDEF 

One of the most common uses of STRING variables in the U. C. S. D. 
Pascal system is reading file names from the CONSOLE device: 

PROGRAM LISTER; 

VAR BUFFER: PACKED ARRAYEO. . 51 1 D OF CHARi 

FILENAME: STRING; 

F: FILEi 

BEGIN 

WRITE( 'Enter filename of the file to be listed >'); 

READLN< FILENAME); 
RESET <F, FILENAME); 
WHILE NOT EOF(F) DO 
BEGIN 



END; 
END. 

When a variable of type STRING is a parameter to the standard 
procedue READ and READLN, all characters up to the end of line charater 
(a carriage return) in the source file will be assigned to the STRING 
variable. Note that care must be taken when reading STRING variables. 
for example, the single statement READLNCS1, S2) is equivalent to the 
two statement sequence READ(Sl); READLNCS2). In both cases the STRING 
variable S2 will be assigned the empty string. 

For further information concerning the predeclared type STRING 
and a description of the U. C. S. D. STRING intrinsics see Section 2.1.1 
of this documentation entitled "STRING INTRINSICS". 
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17. WRITE AND WRITELN 

The standard procedures WRITE and WRITELN are compatible with 
Standard Pascal, except with respect to a WRITE or a WRITELN of a 
variable of type BOOLEAN. U. C. S. D. Pascal does not support the output 
of the words TRUE or FALSE as the result of writing out the value of a 
BOOLEAN variable. 

For a description of WRITE statements of variables of type 
STRING see Section 2.1.1 of this documentation entitled "STRING 
INTRINSICS". 

U. C. S. D. 's WRITE and WRITELN do support the writing of entire 
PACKED ARRAYs OF CHAR in a single WRITE statement: 

VAR BUFFER: PACKED ARRAY! 0. . 103 OF CHAR} 
BEGIN 

BUFFER: = 'HELLO THERE'; <# contains exactly 11 characters *> 

WRITELN ( OUTPUT, BUFFER > ; 
END. 

The above construct will only work if the ARRAY is a PACKED 
ARRAY OF CHAR. See the section of this document on PACKED VARIABLES for 
further information about packing. 

The following program demonstrates the effects of a field width 
specification within a WRITE statement for a variable of type STRING: 

PROGRAM WRITESTRINGSi 
VAR S: STRING, 

BEGIN 

S:='THE BIG BROWN FOX JUMPED. . . '; 

WRITELN<S)s 

WRITELN<S.:30>; 

WRrTELN<S: 10); 
END. 

The above program will produce the following output: 

THE BIG BROWN FOX JUMPED. . . 

THE BIG BROWN FOX JUMPED. . . 
THE BIG BR 

Note that when a string variable is written without specifying 
a field width, the actual number of characters written is equal to the 
dynamic length of the string. If the field width specified is longer 
than the dynamic length of the string, then leading blanks are written. 
If the field width is smaller than the dynamic length of the string 
then the excess characters will be truncated on the right. 
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17. 5 EXTENDED COMPARISONS. 

U. C. S. D. Pascal allows - and O comparisons of any array or 
record structure. 

18. MISC. IMPLEMENTATION SIZE LIMITS 

The following is a list of maximum size limitations imposed 
upon the user by the current implementation of U. C. S. D. Pascal: 

1 Maximum number of bytes of object code in a PROCEDURE or 

FUNCTION is 1200. Local variables in a PROCEDURE or FUNCTION 
can occupy a maximum of 16383 words of memory. 

2. Maximum number of characters in a STRING variable is 255. 

3. Maximum number of elements in a SET is 255 * 16=4080. 

4. Maximum number of SEGMENT PROCEDURES and SEGMENT FUNCTIONS 
is 16. ( 9 are reserved for the Pascal system, 7 are 
available for use by the user program ) 

5. Maximum number of PROCEDURES or FUNCTIONS within a segment 
is 127. 



19. SUMMARY OF U. C. S. D. 
INTRINSIC SECTION # 



INTRINSICS 

DESCRIPTION 



BLOCKREAD 


2. 


1. 


2 


BLOCKWRITE 


2. 


1. 


2 


CLOSE 


2. 


1. 


2 


CONCAT 


2. 


1. 


1 


DELETE 


2. 


1. 


1 


DRAWL I NE 


2. 


1. 


4 


DRAWBLOCK 


2. 


1. 


4 


EXIT 


2. 


1. 


7 


GOTOXY 


2. 


1 


6 



Function which reads a variable number of blocks 
from an untyped file. 

Function which writes a variable number of blocks 
from an untyped file. 

Procedure to close files. 

STRING intrinsic used to concatenate strings together. 

STRING intrinsic used to delete characters from 
STRING variables. 

Graphics intrinsic for use on the Terak 8510a. 

Graphics intrinsic for use on the Terak 8510a. 

Intrinsic used to exit PROCEDURES cleanly. 

Procedure used for cursor addressing whose two 
parameters X and Y are the column and line numbers 
on the screen where the cursor is to be placed. 
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FILLCHAR 
HALT 

IDSEARCH 

INSERT 

IORESULT 

LENGTH 

MARK 

MOVELEFT 

MOVERIGHT 

REWRITE 

RESET 

POS 

PWROFTEN 

RELEASE 

SEEK 
SIZEOF 

TIME 

TREESEARCH 
UN7TBUSY 

UNITCLEAR 



2. 1. 5 
2. 1.6 



2. 1. 1 

2. 1.2 

2. 1. 1 

2. 1.3 

2. 1. 5 
2. 1. 5 
2. 1.2 
2. 1. 2 
2. 1.1 

2. 1.6 

2. 1.3 

2. 1. 2 
2. 1.6 

2. 1.6 



1. 2 



2. 1. 2 



Fast procedure for initializing PACKED ARRAYs OF CHAR. 

Results in a halt in a user program which may 
result in a call to the interactive Debugger. 

Routine used by the Pascal compiler, and the PDP-11 
assembler. 

STRING intrinsic used to insert characters in STRING 
variables. 

Function returning the result of the previous I/O 
operation. (See Table 2 for a list of values) 

STRING intrinsic which returns the dynamic length 
of a STRING variable. 

Used to mark the current top of the heap in dynamic 
memory allocation. 

Low level intrinsic for moving mass amounts of bytes. 

Low level intrinsic for moving mass amounts of bytes. 

Procedure for opening a new file. 

Procedure for opening an existing file. 

STRING intrinsic returning the position of a 
pattern in a STRING variable. 

Function which returns as a REAL result the number 
10 raised to the power of the integer parameter 
supplied. 

Intrinsic used to release memory occupied by 
variables dynamically allocated in the heap. 

Used for random accessing of records withing a file. 

Function returning the number of bytes allocated 
to a variable. 

Function returning the time since last bootstrap 
of system, (returns zero if microcomputer has 
no real time clock) 

Routine used solely by the Pascal compiler. 

Low level intrinsic for determining the status of 
a peripheral device. 

Low level intrinsic to cancel I/O from a peripheral 
device. 
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UNITREAD 2.1.2 Lou level intrinsic for reading from a peripheral 

device. 



UNITWAIT 
UN IT WRITE 



2.1.2 Lou level intrinsic for uaiting until a peripheral 

device has completed an I/O operation. 

2.1.2 Lou level intrinsic used for writing to a peripheral 
device. 



Page 131 



Page 132 



ft*********************************** *************** 

* DRAWLINE AN IMPLEMENTOR 'S GUIDE * * Section 3. 1 * 
##********************************** *#************* 

Version 1.4 January 1978 

The DRAWLINE intrinsic uses an incremental technique to plot 
line segments on a point-addressable matrix. The algorithm guarantees a 
best (least squares) approximation to the desired line. In general this 
approximation is not unique. DRAWLINE may pick different representations 
?0? a line depending on the starting point. (This could be corrected by 
always starting at the same end of the line.) No range checking is 
performed on parameters passed to this intrinsic. 

The algorithm is essentially the one described in CNewman *"* 
Soroul, Principles of Interactive Computer Graphics] as the Digital 
Differential Analyzer. It has been modified to perform only integer 
arithmetic. Pascal source code is included belou). The procedure *>"* 
determined whether the line will be more horizontal or vertical. In the 
discussion below, we assume the horizontal case; vertical is similar. 

There will be DELTAX points plotted with horizontal increment 
of 1 each. The vertical increment will be ABS (DELTAY / DELTAX) <■ 1. 
The Y coordinate arithmetic is scaled by DELTAX to eliminate fractions. 
An additional savings in execution time has been gained by maintaining 
the address of the previous point, and doing only addition and 
subtraction to reach the next point to be plotted. 

The RADAR function is complicated as two intersecting lines may 
have no plotted points in common. The detection condition is either 
(1) the computed point is TRUE, or (2) both the next horizontal and 
the next vertical points are TRUE. Condition (2) could be weakened: 
when the line is more horizontal, only the next vertical point need be 
checked. 
Refer to Section 2.1.4 for a description of the parameter calling sequence. 

A PASCAL implementation follows: 
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PROCEDURE DRAWLINE (VAR RANGE: INTEGER; VAR SCREEN: SCREENTYPE; 
ROWSIZE, XSTART, YSTART, DELTAX, DELTAY, INK: INTEGER); 



VAR X, Y. XINC, YINC, COUNT: 
PROCEDURE DRAWDOT; 



INTEGER; 



PROCEDURE RADAR; 
VAR GOT IT: BOOLEAN; 
BEGIN 

GOTIT := FALSE; 
COUNT :- COUNT + 1; 

IF SCREEN CY, XD THEN GOTIT := TRUE (*LANDED ON THE POINT*) 
ELSE (*WE MIGHT GO THROUGH A LINE*) 
IF SCREEN CY+i, X3 THEN 

GOTIT :- SCREEN CY, X+13; 
IF GOTIT THEN 
BEGIN 

RANGE := COUNT; 
EXIT(DRAWLINE) 
END; 
END (*RADAR«); 



BEGIN (*DRAWDOT*) 
CASE INK OF 

(*NONE*>: 

1 <*WHITE*>: 

2 <*BLACK*): 

3 <*REVERSE*): 

4 (*RADAR*): 
END (*CASE#) 

END (*DRAWDOT*); 



EXIT (DRAWLINE); (*THEY HAD NO BUSINESS HERE*) 



SCREEN CY, 

SCREEN CY, 

SCREEN CY, 
RADAR 



X3 
X3 
X3 



= TRUE; 
FALSE; 
NOT SCREEN CY, XI; 



<*MORE HORIZONTAL*) 



PROCEDURE DOFORX; 

VAR ERROR, I: INTEGER; 

BEGIN 

IF DELTAX = O THEN EXIT (DRAWLINE); (*THEY'RE GOING NOWHERE*) 
ERROR : = DELTAX DIV 2; 
I : = DELTAX; 
REPEAT 

ERROR := ERROR + DELTAY; 
IF ERROR >= DELTAX 

THEN BEGIN ERROR := ERROR - DELTAX; Y := Y + YINC END; 
X := X + XINC; 
DRAWDOT; 
1 := I - 1; 
UNTIL I = 0; 
END (*DOFORX#); 
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X := X + XINC 



END; 



PROCEDURE DOFORYi (*MORE VERTICAL*) 

VAR ERROR. I: INTEGER) 

BEGIN 

ERROR : = DELTAY DIV 2; 

I := DELTAY; 

REPEAT 

ERROR : = ERROR + DELTAX; 
IF ERROR >= DELTAY 

THEN BEGIN ERROR : = ERROR - DELTAY; 
Y := Y + YINC; 
DRAWDOT; 
I := I - 1; 
UNTIL 1=0; 
END <*DQFORY*)i 

BEGIN <*DRAWLINE*> 
X := XSTART; 
IF DELTAX < 

THEN BEGIN XINC 

ELSE XINC : = 1; 
Y := YSTART; 
IF DELTAY < 

THEN BEGIN YINC 

ELSE YINC := i; 
COUNT : = 0; 

TF DELTAX >= DELTAY THEN DOFORX ELSE DOFORY; 

IF ?NK - 4 (*RADAR*> THEN RANGE :- COUNT; <*HIT THE LIMIT GIVEN*) 
END <*DRAWLINE*); 



-1; DELTAX :» -DELTAX 



END 



- -1; DELTAY := -DELTAY END 
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•ft**********-***** *************** 
# FILE FORMATS * * Section 3. 2 * 

Version I. 4 January 1978 

Code files are documented in Sections 3.4 and 3.5. 

Text files are of the format: 

<1024 bytes> header page, information for editors. 
<1024 byte pages> where a page is defined: 

<CDLE3Cindent3Ctext3CCR3CDLE3Cindent3i:text3CCR3. . . Cnulls3> 

Data Link Escapes are followed by an indent-codei which is a 
byte containing the value 32+<# to indent). The nulls at the end of 
the page follow a CCR3 in all cases, they are a pad to the end of a 
page. The reason for the nulls is that the compiler wants integral 
numbers of lines on a page. The Data Link Escape and corresponding 
indentation code are optional. In a given text file some lines will 
have the codes, and some won't. 

Foto files are declared in PASCAL as follows: 

TYPE SCREEN = PACKED ARRAYCO. . 239, 0. . 3193 OF BOOLEAN; 
VAR FOTOFILE: PACKED FILE OF SCREEN; 

or something similar, which takes op the same dimensional 
space. 

Data files are up to the user. 
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•ft************************* **#***■**#****•** 
* SEGMENT PROCEDURE NOTES * * Section 3.3 * 

Version 1.4 January 1978 

Declarations of SEGMENT procedures and functions are identical 
to standard Pascal procedures and functions except they are preceded by 
the reserved word 'SEGMENT'. for example: 

SEGMENT PROCEDURE INITIALIZE; 
BEGIN 

<* PASCAL code *) 
END; 

Program behavior differs, however, in that code and data for a 
SEGMENT procedure (function) are in memory only while there is an 
active invocation of that procedure. 

Advantages and benefits: 

The user may now put large pieces of one-time code. eg. 
initialization code, into a SEGMENT procedure. After performing the 
initialization, for example, the now-useless code is taken out of 
memory thus increasing the available memory space. 

Furthermore the user may now compile his/her program in chunks, 
specifically in SEGMENTS. The LINKER program (described in Section 
4.2) can be used to link together the separate segments to produce one 
large code file. 

Requirements and limitations: 

The disk which holds the codefile for the program must be on- 
line (and in the same drive as when the program was started) whenever 
one of SEGMENT procedures is to be called. Otherwise the system will 
attempt to retrieve and execute whatever information now occupies that 
particular location on the disk, usually with very displeasing and 
certainly unexpected results. 

A maximum of six (6) SEGMENT procedures are ordinarily 
available to the user. 

SEGMENT procedures must be the first procedure declarations 
containing code-generating statements. 



Reference Section 3. 5. INTRODUCTION TO THE PASCAL PSEUDO 
MACHINE, for further details and examples. 
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* PSUEDO-MACHINE ARCHITECTURE * * Section 3. 4 * 

Version I. 4 January 1978 

The UCSD Pascal P-machine, designed specifically for the 
execution of Pascal programs on small machinesi is an extensively 
modified descendant of the P-2 pseudo-machine from Zurich. It supports 
variable addressing, including strings, byte arrays, packed fields, and 
dynamic variables; logical, integer, real, and set top-of-stack 
arithmetic and comparisons! multi-element structure comparisons; 
several types of branches; procedure/function calls and returns, 
including overlayable procedures; miscellaneous procedures used by 
systems programs; and an I/O system. 

This Section, to be used in conjunction with Section 3. 5. 
describes the P-machine "hardware," communication with the operating 
system, exceptional condition handling, the instruction set, the I/O 
system, and the bootloading process. 

NOTE: not all of the above will be included in the 1.4 release 
and will onlu be available sometime lat er. 

I. HARDWARE 

There exists no physical P-machine (yet!). The P-machine 
exists only as interpreters written in assembly languages of actual 
computers. However, this can and will be ignored in the following 
description. 

The P-machine uses 16-bit words, with two 8-bit bytes per 
word. It has several registers and a user memory, in which are kept a 
stack and a heap. All registers are pointers to word-aligned 
structures, except IPC, which is a pointer to byte-aligned 
instructions. The registers are: 

SP: Stack Pointer is a pointer to the top of the execution stack. The 
stack starts in high memory and grows toward low memory. It 
contains code segments and activation records, and is used to pass 
parameters, return funct'^n values, and as an operand source for 
many instructions. The stack is extended by loads and procedure 
calls, and is cut back by stores, procedure returns, and arithmetic 
operations. 

NP: New Pointer is a pointer to the top of the dynamic heap. The heap 
starts in low memory and grows upward toward the stack. It 
contains all dynamic variables (see Jensen and Wirth, Chapter 10). 
It is extended by the standard procedure 'new', and is cut back by 
the standard procedure 'release'. 
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JTAB: Jump TABle pointer is a pointer to the procedure attribute table 
of the currently executing procedure. (See Section 3.5, figure 5.) 

SEG: Segment Pointer points to the procedure dictionary of the segment 
to which the currently executing procedure belongs. (See Section 
3. 5/ figure 6. ) 

MP: Most recent Procedure is a pointer to the activation record of the 
currently executing procedure. (See Section 3. 5, figure 7. ) 
Variables local to the current procedure are accessed bu indexina 
off MP. a 

BASE: BASE Procedure is a pointer to the activation record of the most 
recently invoiced base procedure (lex level 0). Global (lex 
level 0) variables are accessed by indexing off BASE. 



II. OPERATING SYSTEM/P-MACHINE COMMUNICATION - SYSCOM. 

It is sometimes necessary for the operating system and the P- 
machine to exchange information. Hence there exists a variable SYSCOM 
in the outer block of the operating system, and a corresponding area in 
memory known to the hardware. The fields in SYSCOM actually relevant 
to this communication are: 
IORSLT: contains the error code returned by the last activated or 

terminated I/O operations. (See I/O section below, and operating 

system read and write procedures. ) 

JEEGERR: contains tJie error code of tne las* run-time error. (See 
exception handling below. ) 

SYSUNIT: contains the unit number of the device the operating system 
was booted from (usually A or 5). 

BUGSTATE: contains the current bugstate. (See BPT instruction below. > 

GDIRP: contains a pointer to the most recent disk directory read in, 
unless dynamic allocation or deallocation has taken place since then 
(See MRK, RLS and NEW instructions below. > 

STKBASE, LASTMP, SEG, JTAB: copies of the BASE, MP, SEG and JTAB 
registers. 

BOMBP: contains a pointer to the activation record of the operating 
system routine EXECERROR when a runtime error occurs. (See 
exception handling. ) 

BOMIPC: contains the value of IPC when a run—time error occurs. 

HLTLINE: contains the line number of the last conditional halt executed 
(See BPT instruction. ) 
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BRKPTS: contains up to four line numbers of breakpointed statements. 
<See BPT instruction. ) 

CRTINFO. EOF: contains the end-of-file character (see console input 
driver). 

CRTINFO. FLUSH: contains the flush-output character (see console inputi 
output drivers). 

CRTINFO. STOP: contains the stop-output character (see console output 
and input drivers). 

CRTINFO. BREAK: contains the break-execution character (see console 
input driver). 

SEGTABLE: contains the segment dictionary for the pascal system. 



III. EXCEPTION HANDLING - XEQERR. 

Whenever a run-time error occurs/ the P-machine stops executing the 

current instruction (ideally leaving the evaluation stack in as nice a 

condition as possible) and transfers control to the XEQERR routine. 
This routine 

1) enters the error code into SYSCOIf\ XEQERR. 

2) calculates what MP will be after step 4, and sets SYSCOM*. BOMBP to 
that. (The size of EXECERROR's activation record must be known 

by the P-machine. ) 
3> stores the current value of IPC into SYSCOM'V BOMIPC. 

4) points IPC to a CXP 0,2 (call operating system procedure 
EXECERROR) instruction. 

5) resumes execution of interpreter code, starting with the CXP. 



IV. OPERAND FORMATS. 

Although an element of a structure may occupy as little as one bit, 
as 'in a PACKED ARRAY OF boolean, variables in the P-machine are 
always aligned on word boundaries. All top-of-stack operations expect 
their operands to occupy at least one word, even if not all the 
information in a word is valid. The least significant bit of a word is 
bit 0, the most significant is bit 15. 

BOOLEAN: One word. Bit O indicates the value (false=0,. true=l), and 
this is the only information used by boolean comparisons. However, 
the boolean operators LAND, LOR, and LNOT operate on all 16 bits. 

INTEGER: One word, two's complement, capable of representing values in 
the range -3276B. . 32767. 
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SCALAR (user-defined): One word, in range 0. . 32767. 

CHAR: One word, with low byte containing character. The internal 
character set is "extended" ASCII, with 0. . 127 representing the 
standard ASCII set. and 128. . 255 as a user-defined character set. 

REAL: Two words, with format implementation dependent. The system 
is arrange so that only the interpreter needs to know the detailed 
internal format of REALs (beyond the fact that they occupy two 
words) Following are the two detailed formats for the CPUs we now 
(as of I. 4) support. 



PDP11: 



word 1: 



ZB0/80B0: 



15 



low mantissa 



15 14 
word 0: !s ! exponent 



7 6 

! high mantissa ! 



15 8 7 

word 1: ! low mantissa ! middle mantissa ! 



word 0: 



15 14 8 7 

!s ! high mantissa 



■ 



exponent 



Both representations have an excess-128 exponent, a fractional 
mantissa that is always normalized, exponent base 2. an implicit 
24th mantissa bit. and zero represented by a zero exponent. (See 
PDP11 processor manual or Z80/8080 interpreter listing for greater 
detail. ) " 

POINTER: One or ♦-hree words, depending on type of pointer. 

Pascal pointers, internal word pointers: one word, containing a word 

address. 
Internal byte pointers: one word, containing a byte address. 
Internal packed field pointers: three words. 

word 2: word pointer to word field is in. 

word 1: field__width (in bits). 

word 0: right_bit__n umber of field. 
SET: 0. . 255 words in data segment, 1..256 words on stack. Sets are 
implemented as bit vectors, always with a lower index of zero. A 
set variable declared as set o£ m. . n is allocated (n+15> div 16 
words. When a set is in the data segment, all words allocated 
contain valid information. 

When a set is on the stack, it is represented by a word 
containing the length, and then that many words, all of which 
contain valid information. All elements past the last word of a 
set are assumed not to be elements of the set. Before being stored 
back in the data segment, a set must be forced back to the size 
allocated to it, and so an ADJ instruction must be issued. 
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RECORDS and ARRAYS: any number of words (up to 16384 words in one 

dimension). Arrays are stored in row-major order, and always have 
a lower index of zero. Only fields or elements are loaded onto the 
stack - never the structure itself. Packed arrays must have an 
integral number of elements in each word, as there is no packing 
across word boundaries <it is acceptable to have unused bits in 
each word). The first element in each word has bit as its low- 
order bit. 

STRINGS- 1. . 128 words. Strings are a flexible version of pac ke d _ 

arra u s of. char. A stringCn3 occupies (n div 2) + l words. Byte O 
of a string is the current length of the string, and bytes 
1. . length (string) contain valid characters. 

CONSTANTS: constant scalars, sets, and strings may be imbedded in 

the instruction stream, in which case they have special formats. 

All scalars (excluding reals) not in the range 0. . 127: two bytes, 
low byte first. 

Strings: all string literals take length( literal )+l bytes, and 

are byte aligned. The first byte is the length, the rest are the 
actual characters. This format applies even if the literal should 
be interpreted as a packed arrau of char (see SIP and S2P 
below). 

Reals and sets: word aligned, and in reverse word order. 

V. INSTRUCTION 5ET FORMAT. 

Instructions on the P-machine are one or two bytes long, followed 
by zero to four parameters. Most parameters specify one word of 
information, and are one of five basic types. 

UB unsigned byte: high order byte of parameter is implicitly zero. 

SB signed byte: high order byte is sign extension of bit 7. 

DB don't care byte: can be treated as SB or UB, as value is always in 

the range O. . 127. . 

B big- this parameter is one byte long when used to represent values in 
the range 0. . 127, and is two bytes long when representing 
values in the range 128. . 32767. If the first byte is in 
127, the high byte of the parameter is implicitly zero. 
Otherwise, bit 7 of •-..• first byte is cleared and it is used as the 
high order byte of the parameter. The second byte is used 
as the low order byte. 

W word: the next two bytes, low byte first, is the parameter value. 

Any exceptions to these formats are noted in the instructions where 
they occur. 
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VI. ENGLISH INSTRUCTION SET DESCRIPTION. 

In the following section, references to an element on the stack are 

context-dependent, and can mean anywhere from one word to 256 words 

Also, unless specifically noted to the contrary, operands are popped off 
the stack - they are not left around. 

Abbreviations are used widely, but use fairly simple conventions 
Parameters are written as X or X_n, where X is UB, SB, DB, B, or W, and 
n is an integer indicating the parameter position in the instruction 
Tos means the operand on the top of stack, tos-1 the next operand, 
etc. Mark Stack Control Word is abbreviated to MSCW. 

Many instructions refer to the activation record of a procedure, and 
this document assumes the reader has a general knowledge of procedure 
calling in stack machines, and the concept of stack frames. An 
activation record as defined in this document specifically consists of: 

1) the local data segment of the procedure, and 

2) the MSCW, containing addressing information (static links), and 
information on the calling procedures environment when the procedure 
wascalled. 

(See Section 3. 5, figure 7. ) 

mco./mLIV 1 ?" 11 ! 1 Ch3in refers t0 the calling chain, traversed using the 
MSCW. MSDYN links. The static chain refers to the lexical or anscestor 
chain, traversed using the MSCW. MSSTAT links. 



Mnemonic Op-code Parameters Full name and operation 



<# V. A Variable fetching, indexing, storing, and transfering *) 
<* V. A. 1 One word loads and stores «.) 



SLDC 
LDCN 
LDCI 



<* V. A. 1. a Constant one word loads 



0. . 127 



159 



199 



*) 



W 



Short load word constant. Pushes the 
opcode, with high byte zero, onto stack. 

Load constant nil . Pushes the 
implementation-dependent value of nil. 

Load constant word. Pushes W. 



(* V. A. l.b Local one word loads and store 
SLDL1 216 
SLDL16 231 



*> 



Short load local word. SLDLx fetches 
the word with offset x in MP activation 
record and pushes it. 
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LDL 202 B Load local word. Fetches the word with 

offset B in MP activation record and pushes it. 

LLA 198 B Load local address. Fetches address of 

the word with offset B in MP activation record 
and pushes it. 

STL 204 B * Store local word. Stores tos into word 

with offset B in MP activation record. 

<* V. A. l.c Global one word loads and store * J 

SLD01 232 Short load global word. SLDOx fetches 

the word with offset x in MP activation 
SLD016 247 record and pushes it. 

LDO 167 B Load global word. Fetches the word with 

offset B in BASE activation record and pushes 

it. 
LAO 163 B Load global address. Pushes the word 

address of the word with offset B in BASE 

activation record. 

SRO 171 B Store global word. Stores tos into the 

word with offset B in BASE activation record. 

(* V. A. 1. d Intermediate one-word loads and store *> 

LOD 182 DBiB Load intermediate word. DB indicates the 

number of static links to traverse to find the 
activation record to use. B is the offset 
within the activation record. 

LDA 178 DB.B Load intermediate address. 

STR iB4 DB.B Store intermediate word. 

(* V. A. 1. e Indirect one-word loads and store *> 

ST0 154 Store indirect. Tos is stored into the 

word pointed to by tos-1. 

SINDO 248 Load indirect. 

(* V. A. 2 Multiple word loads and stores (sets and reals) *> 

LDC 179 UB.<block> Load multiple word constant. UB is the 

number of words to load, and <block> is a 
word aligned block of UB words, in reverse 
word order. Load the block onto the stack. 
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LDM 188 UB Load multiple words. To* is a pointer 

to the beginning of a block of UB words 
Push the block onto the stack. 

S ™ 189 UB Store multiple words. Tos is a block of 

UB words, tos-1 is a word pointer to a 
similiar block. Transfer the block from the 



stack to the destination block. 



<* V. A. 3 Byte arrays 



#) 



LDB 190 
STB 191 



BYT 210 Byte conversion. Convert word pointer 

tos to a byte pointer. (NOP on the PDP11 and 
280/8080 implementations. ) 

Load byte. Push the byte (after zeroing 
high byte) pointed to by byte pointer tos. 

Store byte. Store byte tos into the 
location specified by byte pointer tos-1. 

MVB 169 B Move bytes. Tos is a byte source 

pointer to a block of B bytes* tos-1 is a 
byte destination pointer to a similiar 
block. Transfer the source block to the 
destination block. (This instruction is 
redundant due to word alignment, and will 
be replaced by MOV in the future. ) 



Index byte array. Push a byte pointer 
formed from the integer index tos and the byte 
pointer tos-1. 



I XB 209 

(* V. A. 4 Strings 

LCA 166 UB,<chars> Load constant string address. Push a 

byte pointer to the location UB is contained 

RA _ ir >' and skip IPC past <chars>. 

a 17 ° UB String assign. Tos is either a source 

byte pointer or a character. (Characters 
always have a high byte of zero, while 
pointer never do. ) Tos-1 is a destination 
byte pointer. UB is the declared size of 
the destination string. If the declared 
size is less than the current size of the 
source string, a run-time error occurs; 
otherwise all bytes of source containing 
valid information are transferred to the 
destination string. 

String to packed conversion o,» tos. Tos 
is a byte pointer to a string, and is 
incremented by one byte so as to point to 
the first character of the string. 



SIP 203 
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S2P 



IXS 



157 



155 



String to packed conversion on tos-1. 
Tos and tos-1 are byte pointers* and tos-1 is 
incremented by one byte. 

Index string array. Performs the same 
operation as IXB. except before indexing the 
index is checked to see if it is in the range 
1. . current length. If noti a run-time error 
occurs. 



(* V. A. 5 Record and array indexing and assignment *> 

MOV 168 B Move words. Tos is a source pointer to 

a block of B words, tos-1 is a destination 
pointer to a similiar block. Transfer the 
block from the source to the destination. 



SINDO 

SIND7 
XND 



INC 



IXA 



248 

255 
163 



162 



164 



IXP 



192 



LDP 
STP 



186 



187 



Short index and load word. SINDx indexes 
the word pointer tos by x words, and pushes 
the word pointed to by the result. 
B Static index and load word. Indexes the 

word pointer tos by B words, and pushes the 
word pointed to. 

B Increment field pointer. The word 

pointer tos is indexed by B words and the 
resultant pointer is pushed. 

B Index array. Tos is an integer index. 

tos-i is the array base word pointer, and B 
is the size (in words) of an array element. 
A word pointer to the indexed element is 
pushed. 

UB_1.UB_2 Index packed array. Tos is an integer 
index, tos-1 is the array base word pointer. 
DB_1 is the number of element_per_word. and 
DB_2 is the field_width (in bits). Compute 
and push a packed field pointer. 

Load a packed field. Push the field 
described by the packed field pointer tos. 

Store into a packed field. Tos is the 
data, tos-1 is a packed field pointer. Store 
tos into the field described by tos-1. 



(*V. A. 6 Dynamic variable allocation and deallocation 



NEW 



MRK 



158 



*) 



158 31 



New variable allocation. Tos is the size 
(in words) to allocate the variable, and 
tos-2 is a word pointer to a dynamic 
variable. If GDIRP is non-nij.. cut NP 
back to GDIRP and set GDIRP to nil. Store 
NP into word pointed to by tos-1. and 
increment NP by tos words. 

Mark heap. Release GDIRP and set to nil 
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RLS 



158 32 



if necessary, then store NP into word pointed 
to by tos. 

Release heap. Set GDIRP to nil , then 
store word pointed to by tos into NP. 



<* V. B Top of stack arithmetic and comparisons 
<* V. B. 1 Logical 



*> 
*) 



LAND 


132 




LOR 


141 




LNOT 


147 




EGUBOOL 


175 


6 


NEQBOOL 


183 


6 


LEQBOOL 


180 


6 


LESBOOL 


181 


6 


GEQBOOL 


176 


6 


OTRBOOL 


177 


6 



Logical and. An d tos into tos-1. 

Logical or. Qr tos into tos-i. 

Logical not. Take one's complement of tos. 
Boolean -, 



O, 



<», 



<, 



><=. 



and > comparisons. 
Compare bit of tos-1 to bit_0 of tos and push 
true or false. 



ABI 



SOI 



DVI 



MODI 



128 



AD I 


130 


NGI 


145 


SB I 


149 


MP I 


143 



152 



134 



142 



(* V. B. 2 Integer *) 

Absolute value of integer. Take absolute 
value of integer tos. Result is undefined if 
tos is initially -32768. 

Add integers. Add tos and tos-1. 

Negate integer. Take the two's 
complement of tos. 

Subtract integers. Subtract tos from tos-1. 

Multiply integers. Multiply tos and tos-1. 
This instruction may cause overflow if result 
is larger than 16 bits. 

Square integer. Square tos. May cause 
overflow. 

Divide integers. Divide tos-1 by tos and 
push quotient. (PDPH quotient defined as in 
Jensen and Wirth; Z00/80S0 quotient defined 
by f loor(tos-l/tos). ) 

Modulo integers. Divide tos-1 by tos and 
push the remainder (as defined in Jensen and 
Wirth). 
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EQUI 


195 


NEGI 


203 


LEQI 


200 


LESI 


201 


GEO I 


196 


GTRI 


197 



CHK 136 Check against subrange bounds. Insure 

that tos-1 <= tos-2 <=• tos. leaving tos-2 on 
the stack. If conditions are not satisfied 
a run-time error occurs. 
Integer =. 

O. 

>=. 

and > 
comparisons. Compare tos-1 to tos and push 
true or false. 

(* V. B. 3 Reals *> 

All over/underflows cause a run-time error. 

FLT 138 Float top-of-stac k. The integer tos is 

converted to a floating point number. 

FLO 137 Float next to top-of-stack. Tos is a reali 

tos-1 is an integer. Convert tos-1 to a real 
number. 

XNC 158 22 Truncate real. The real tos is truncated 

(as defined in Jensen and Wirth) and 
converted to an integer. 

RND 158 23 Round real. The real tos is rounded (as 

defined in Jensen and Wirth), then truncated 
and converted to an integer. 

ABR 129 Add reals. Take the absolute value of 

the real tos. 

Add reals. Add tos and tos-1. 

Negate real. Negate the real tos. 

Subtract reals. Subtract tos from tos-1. 

Multiply reals. Multiply tos and tos-1. 

Square real. 

Divide reals. Divide tos-1 by tos. 

Power of ten: The integer tos is check 
for <= tos <= 38i a run-time error 
occurring if the conditions aren't satisfied. 
The implementation dependent value 10 .'* tos 
is pushed. This facility allows the rest of 
the system to be independent of floating 
point format. 



ADR 


131 


NOR 


146 


SBR 


150 


MPR 


144 


SQR 


153 


DVR 


135 


POT 


158 35 
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SIN 


15S 


24 


COS 


158 


25 


ATAN 


158 


27 


EXP 


158 


29 


LN 


158 


28 


LOG 


158 


26 


SQT 


158 


30 


EGUREAL ' 


175 


2 


NEQREAL 


183 


2 


LEGREAL 


180 


2 


LESREAL 


181 


2 


GEQREAL 


176 


2 


GTRREAL 


177 


2 



Sine. Take the sine of the real tos 

Cosine. 

Arctangent. 

Exponential. e A tos. 

Natural logarithm. 

Log base 10. 

Square root. 

Real =, 

<>. 



<. 



>=, 



Push TRUE or FALSE. 



and > comparisons. 



(# V. B. 4 Sets 
AD J 160 UB 



SGS 

SRS 

INN 
UNI 
INT 

DIP 



EQUPOWR 
NEQPOWR 
LECPOWR 
GEGPOWR 



151 



148 



139 



156 



140 



133 



175 8 
183 8 
180 8 

176 8 



*> 

Adjust set. The set tos is forced to 
occupy UB words, either by expansion (putting 
2eroes "between" tos and tos-1 ) or 
compression (chopping of high words of set), 
and its length word is discarded. 

Build a singleton set. The integer tos 
is checked to insure that O <= tos <= 4079, a 
run-time error occurring if not. The set 
ttos3 is pushed. 

Build a subrange set. The integers tos 
and tos-1 are checked as in SGS, and the set 
ttos-1. . tos3 is pushed. (The set C3 is 
pushed if tos-1 > tos. ) 

Set membership. See if integer tos 1 is 
in set tos, pushing TRUE or FALSE. 

Set union. The union of sets tos and 
tos-1 is pushed. (Tos or tos-1. > 

Set intersection. The intersection of 
sets tos and tos-1 is pushed. 
(Tos and tos-1. ) 

Set difference. The difference of sets 
tos-1 and tos is pushed. 
(tos-1 , and not tos. ) 
Set =, 

O, 

<= (subset of), 

, , and >= 

(superset of) comparisons. 
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<* V. B. 5 Strings *> 

EQUSTR 175 4 String =. 

NEQSTR 1B3 4 <>' 

LEQSTR 180 4 <-> 

LESSTR 181 4 <' 

GEQSTR 176 4 >»• 

GTRSTR 177 4 and > 

comparisons. The string pointed to by word 
pointer tos-1 is lexicographically compared 
to the string pointed at by tos. 

(* V. B. 6 Byte arrays *> 

EQUBYT 175 10 Byte array =. 

NEGBYT 183 10 <>» 

LEQBYT 180 10 <=» 

LESBYT 181 10 <• 

GEQBYT 176 10 >=• 

GTRBYT 177 10 and > 

comparisons. <=» << >=. and > are only 
emitted for packed arraus of char. 

(* V. B. 7 Array and record comparisons. *> 

EQUWORD 175 12 Word or multiword structure = 

NEQWORD 183 12 and O 

comparisons. 

<* V. C Jumps *' 

Simple (non-case statement) jumps are all two bytes long. The 
first byte is the op-codei the second is a SB jump offset. If this 
offset is non-negativei it. is simply added to IPC. (A value of zero 
for the jump offset will make any jump a two-byte nop. ) If SB is 
negative, then SB div. 2 is used as a word offset into JTAB, and IPC 
is set to the bute address (JTAB^CSB div 2D > - JTABESB div 23. 

UJP 185 SB Unconditional jump. Jump as described 

aiiove. 

FJP 161 SB False jump. Jump if tos is false. 

EFJ 211 SB Equal false jump. Jump if integer tos <> 

tos-1. Nat implomonted — hi-I. fl .- 

NFJ 212 SB Not equal false jump. Jump if integer 

tos = tos-1. fNtrt — Implemented — in ■ I. Oi ■ 

XJP 172 W_1.W_2.W_3. <case table> 

Case jump. W„l is word-aligned, and is 
the minimum index of the table. W_2 is the 
maximum index. W_3 is an unconditional 
jump instruction past the table. The case 
table is W_2-W_l+1 words long, and contains 
self-relative locations. 
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If tos, the actual index, is not in the 
range W_l. . W_2, then IPC is pointed at 
W_3. Otherwise, tos-W_l is used as an 
index into the table, and IPC is set to 
byte_address(casetableCindex-min_index3)- 
casetableCindex-min_index3. 

(* V. D Procedure and function calls and returns. #) 

The general scheme used in procedure/function invocation is 

1) Calculate the data_size and parameter_si ze of the called 
procedure by using the information in the current procedure 
dictionary (pointed to by SEO). 

2> Extend stack by data_size bytes. 

3) Copy parameter_.size bytes from the old top-of-stack to the 
beginning of the space just allocated. 

4> Build a MSCW, saving SP, IPC, SEG, JTAB, MP, and a pointer 
to the most recent activation record of the called procedure's 
immediate parent. 

cpo 5 L Ca J c " late new values for SP, IPC. JTAB, MP, and if necessary, 
SEG. Check for stack overflow. 

6) If the called procedure has a lex level of -1 or save BASE 
and calculate a new BASE. 

Call local procedure. Call procedure UB, 
which is an immediate child of the currently 
executing procedure and in the same segment 
Static link of MSCW is set to old MP 



CLP 206 UB 



CIP 174 UB 



CGP 207 UB Call global procedure. Call procedure 

UB, which is at lex level 1 and in same 
segment. The static link of the MSCW is set 
to BASE. 

Call intermediate procedure. Call 
procedure UB in same segment as the 
currently executing procedure. The static 
link of the MSCW is set by looking up the 
call chain until an activation record is 
found whose caller had a lex level one 1 
less than the procedure being called. Use 
that activation record's static link as the 
static link of the new MSCW. 

Call base procedure. Call procedure UB, 
which is at lex level -1 or 0. The static 
link of the MSCW is set to the static link 
in BASE'S activation record. The BASE is 
save), after which it is pointed at the 
activation record just created. 

CXP 20S DB_1,UB_2 Call external procedure. Used to call 

any. procedure not in the same segment as 
the calling procedure, including procedures 
at lex level -1 or O. It works as follows: 

1) Is desired segment in memory? This 
is determined by traversing up the call 
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CBP 194 UB 



chain until an activation record of a 
procedure in the desired segment is found, 
or the operating system's resident 
activation record is encountered. 

2a) no: read in segment from disk using 
the information in the segment dictionary, 
then build an activation record. However, 
extend stack by data_size+paramsize in step 

2. 

2b) yes: build activation record normally. 

3) calculate the dynamic link for the 
MSCW: If the called procedure has a lex 
level of -1 or 0. set as in CBP. otherwise 
set as in CIP. 
HNP 173 DB Return from non-base procedure. DB is 

the number of words that should be returned 
as a function <0 for procedures, i for non- 
real functions, and 2 for real functions) 
value. DB words are copied from the bottom 
of the data segment and "pushed" onto the 
caller's top-of-stac k. The information in 
the MSCW is then used to restore the 
caller's correct environment. 

RBP 193 db Return from base procedure. The saved 

base is moved into BASE, after which things 
proceed as in the RNP instruction. 

EXIT 158 4 Exit from procedure. Tos is the 

procedure number, tos-1 is the segment 
number. This operator sets IPC to point to 
the exit code of the currently executing 
procedure, then sees if the current 
procedure is the one to exit from. If it 
is. control returns to the instruction 
fetch loop. 

Otherwise, each MSCW has its saved IPC 
changed to point to the exit code of the 
procedure that invoked it. until the 
desired procedure is found. 

If at any time the saved IPC of main body 
of the operating system is about to be 
changed, a run-time error occurs. 

<* V. E Systems programs support procedures *> 

See Section 2. 1 for description of these procedures. 

(* Byte array procedures *' 

PLC 158 10 Fillchar <dst. len. char). 

3CN 158 ?? Scan(maxdisp. start, forpast. char. mask). 

HVL 158 ?? Movelef t (src. dst. numbytes). 
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MVR 158 ?? 



Moveright(src, dsti numbytes). 



<* Compiler procedures (still undocumented) *) 

TRS 158 Treesearch. 

IDS 158 Idsearch. 



(* Debugger 

BPT 213 Breakpoint (conditional HALT) 

<* Miscellaneous 

TIM 158 Time. 

XIT 214 
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*) 



*) 



********************************************* *************** 

* INTRODUCTION TO THE PASCAL PSEUDO-MACHINE * * Section 3. 5 * 
********************************************* *************** 

Version I. 4b April 1978 

This document is a medium level description of the UCSD 
implementation of Pascal. This implementation is interpreter based. 
That is. the compiler emits code for a pseudo-machine which is 
emulated at run time by a program written in the machine language of 
the host. The compiler, program editor, small stand-alone operating 
system, and various utilities are themselves written in Pascal and run 
on the same interpreter. Thus, as mentioned in the introduction and 
overview document, the entire system can be moved to a new host 
machine by rewriting the interpreter for the new host. 

Figure 10 (the last page of this document) is a skeleton version 
of a large Pascal program, here-in-after referred to as "The Program". 
This document is a top-down description of the realization of that 
program on the UCSD Pascal system. We will make occasional use of a 
helpful coincidence: The Program is the framework of the portion of 
the UCSD Pascal environment that's written in Pascal. 

If The Program were fleshed out to a complete Pascal system, it 
would consist of at least 6000 lines of Pascal and compile to more 
than 50.000 bytes of code — too big to fit all at once into the memory 
of a small machine <by our current definition of small). Therefore we 
have extended Pascal so that a programmer can explicitly partition a 
program into segments ; only some of these need be resident in main 
memory at a time. The syntax of this extension is shown in figure 1. 
<Any syntactic objects not defined explicitly there retain their 
standard interpretation as defined by Jensen & Wirth: Pascal User 
Manual and Report . ) 

<program> : : » <program heading> <segment block> . 

<segment block> : : =■ <label declaration part> 

<constant declaration part> <type definition part> 
<variable declaration part> <segment declaration part> 
<segment body> 

<segment declaration part> ::= SEGMENT <procedure heading> 
<segment block>; \ SEGMENT <function heading> 
Csegment block>i 

<segment body>::= <procedure and function declaration part> 
^statement part> 

FIGURE 1. SEGMENT DECLARATION SYNTAX. 

Segment declaration syntax (figure 1) requires that all nested 
segments be declared before the ordinary procedures or functions of 
the segment body. Thus, a code segment can be completely generated 
before processing of code for the next segment starts. This is not a 
functional 1 imitation, since forward declarations can be used to allow 
nested segments (COMPILER in The Program) to reference procedures in 
an outer segment body (CLEARSCREEN) . Similarly, segment procedures 
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and functions can themselves be declared forward. 



Segmenting a program doesn't chang 
fundamental sense. When a segment is c 
segment in line A)/ the interpreter che 
due to a previous invocation. If it is 
execution proceeds. If not/ the approp 
loaded from disk before the transfer of 
more active invocations of the segment 
memory. For instance* in The Program/ 
segment is not present in memory either 
of line A. Clearly* a program should b 
(non-recursive) segment calls are infre 
could be lost in unproductive thrashing 
low performance disk). 



not 

shown 
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high address 



> J 


DEBUGGER 


10 ! 


> ! 


FILER 


17 ! 


1 


EDITOR 


12 : 


I 
1 


COMPINIT 


7 i 


1 
1 


COMPILER 


41 : 


> : 


INITIALIZE 


3 i 


i 


USER PROGRAM 


i : 


i 


PASCALSYSTEM 


17 ! 


■ 


SEGMENT DICITONARY 


1 



low address 



figure 2. PASCAL SYSTEM CODE FILE. 



The code file resulting from compilation of The Program is 
diagrammed in figure 2#. The file is a sequence of code segments 
preceded by a segment dictionary. The size of each segment is noted 
in blocks / the 512-byte disk allocation quantum used on most PDP-11 
operating systems. The sizes indicated are representative of a full 
Pascal system. Each code segment begins on a block boundary. The 
ordering (from low address to high address) is determined bj the order 
that one encounters segment procedure bodies in passing through The 
Program. 
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* An overview of the relationship among figures 2 through 8 <to be 
discussed in the following pages) is given in figure 9 at the end of 
this document. It is helpful to study figure 9 at this point for a 
better understanding of the document. 

The segment dictionary in the first block of a code file contains 
an entry for each code segment in the file. The entry includes the 
disk location and size<in bytes) for the segment. The disk location 
is given as relative to the beginning of the segment dictionary (which 
is also the beginning, of the code file) and is given in number of 
blocks. This information is kept in the system communications area 
(also called SYSCOM) during the execution of the code file, and is 
used in the loading of non-present segments when they are needed. 
Figure 3 details the layout of the table and shows representative 
contents for the Pascal system code file. 



location 
size 
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8500 
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22 
20932 



63 
3480 



70 
5880 



PASCALSYSTEM 



USERPROGRAM 



COMPILER 



COMPINIT 



DEBUGGER 



FIGURE 3. THE SEGMENT DICTIONARY 



proc 

a de 

Each 

star 

(cur 

made 

the 

end 

proc 

the 

proc 

the 



A code segment contain 
edures. including the s 
tailed diagram of the c 

of a code segment's pr 
ting at 1 for the segme 
rent temporary limit of 

via its number. Trans 
code segment is accompl 
of the segment. "this d 
edure number. Each arr 
code for the correspond 
edure number, the zero' 
segment number (even by 



s the code for the body of each of its 
egment procedure. itself. Figure 4 below is 
ode segment of The Program (Pascalsystem) . 
ocedures are assigned a procedure number, 
nt procedure, and ranging as high as 255 

127). All references to a procedure are 
lation from procedure number to location in 
ished with the procedure dictionary at the 
ictionary is an array indexed by the 
ay element is a self-relative pointer to 
ing procedure. Since zero is not a valid 
th entry of the dictionary is used to store 
te) and number of procedures (odd byte). 



Page 159 



Observe that CLEARSCREEN is the first procedure for which code is 
generated and it appears at the beginning of the segment. The outer 
block code is generated and appears last. 

high addresses 

odd even 

j 

Number of procedures 1 Segment Number 
in dictionary I 



I-- 



I 

! 

I 

t 

l-> 
j > 



Procedure #1 
Procedure #2 



PASCAL-SYSTEM 
CLEARSCREEN 



- - - rest of - - - - 
procedure dictionary 



PASCALSYSTEM's outer block code 



! 

! 

<-! 



other procedures of the Pascal system 
PROCEDURE #3 code 

PROCEDURE #2 < c learscreen ) code 



low addresses 



FIGURE 4. A CODE SEGMENT 



A more detailed diagram of a single procedure code section is 
seen in figure 5. It consists of two parts: the procedure code itself 
in the lower portion of the section) and a table of attributes of the 
procedure. These attributes are: 

LEX LEVEL: This odd byte is the depth of absolute lexical nesting 
for the procedure. (i.e. Lex Level <LL) Pascalsystem=-1, LL COMPILER 
or CLEARSCREEN=0, LL COMPINIT=l, etc. ). 

PROCEDURE NUMBER: This even byte refers to the number given in the 
procedure dictionary of the parent segment procedure. For examplei 
the Procnum of CLEARSCREEN is 2. (see figure 4). 

ENTER IC:This is a self-relative pointer to the first instruction 
to be executed for this procedure. 

EXIT IC:This is a self-relative pointer to the beginning of the 
block of procedure instructions which must be executed to terminate 
procedure properly. 
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PARAMETER SIZE: The param size is the number of bytes of 
parameters passed to a procedure from its caller. 

and DATA SEGMENT SIZE: The data size is the size of the data 
segment <See below) in bytes, excluding the markstack and PARAM SIZE. 

Between these attributes and the procedure code there may be an 
optional section of memory called the "jump table". Its entries are 
addresses within the procedure code. JTAB is a term commonly applied 
to the six attributes just discussed and the jump table itself. 



high addresses 
odd even 



-> 



Lex Level I Procedure # 
Enter IC 
Exit IC 
Parameter Size 
Data Segment Size 
- - - Jump Table ------ 



CLEARSCREEN 
CODE 









PASCALSYSTEM ' s 


— 1 


Procedure 


1 


Dictionary 


1 

1 


Pointer 



! 



low addresses 
FIGURE 5. PROCEDURE CODE SECTION <OF CLEARSCREEN) 
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high addresses 



System Resident Segment 
System Data Segment 



mark stack 
Compiler Code Segment 



Compiler Data Segment 
mark stack 



Compinit Code Segment 
Compinit Data Segment 



mark stack 
CLEARSCREEN Data Segment 



mark stack 
temporaries 



HEAP 



Interpreter 
S Y S C Q M 



<- <segment dictionary> 



— I 



low addresses 



FIGURE 6. SYSTEM MEMORY DURING CLEARSCREEN EXECUTION 

Figure 6 is a snapshot of system memory during the execution of a 
call to procedure CLEARSCREEN from line C in COMPINIT. The Pascal 
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interpreter occupies the lowest area in memory. In it is the system 
communications area(also called SYSCOM) , wh ich is accessible both to 
assembly language routines in the interpreter and (as if it were part 
of the heap) to system routines coded in Pascal. It serves as an 
important communication link between these two levels of the system. 
The Pascal heap is next in the memory layout) it grows toward high 
memory. The single stack growing down from high memory is used for 3 
types of items: 1) temporary storage needed during expression 
evaluation* 2) a data segment containing local variables and 
parameters for each procedure activation* and 3) a code segment for 
each active segment procedure. (See figure 6) 

Consider the status of operations just before COMPINIT is called 
in line B. Conceptuallyi there are six pseudo-variables which point 
to locations in memory: 

a STACK POINTER(SP): which points to the current top of the stack, 

a MARK STACK POINTER(MP): which points to the "topmost" markstack 
in the stack/ (remember that the the stack grows down!), 

a SEGMENT(SEG) variable: which points to the base of the procedure 
dictionary for the currently active segment procedure. For example, 
just before COMPINIT is called, BEG points to the COMPILER segment's 
procedure dictionary, 

an INTERPRETER PROGRAM COUNTER ( IPC) : which contains the address of 
the next instruction to be executed in the code segment of the current 
procedure. 

a JTAB pointer: which points to the collection of procedure 
attributes and jump table entries in the body of the current procedure 
code section. 

and a NEW POINTER(NP): which points to the current top of the 
heap. 

When segment prodedure COMPINIT is called in line B, its code 
segment (including all compiler initialization procedures) is loaded 
on the stack. Then the COMPINIT data segment is built on top of that. 
Figure 7 is a diagram of the data segment for COMPINIT. 
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high addresses 



I 1 

I MP I— > 
I 1 



Other COMPINIT variables 



BOOL 
I 



MSSP 



MS I PC 

MSSEG 

MSJTAB 

MSDYN 

MSSTAT 



— > mark stack 



low addresses 



FIGURE 7. A DATA SEGMENT 

In the upper portion of the data segment, space is allocated for 
variables local to the new procedure. For examp le, COMPINIT's data 
segment allocates space for integer variables I and J. as well as 
boolean BOOL. 

In the lower portion of the data segment is a "markstack". When 
a call to any procedure is made, the current values of the 
pseudo-variables, which characterize the operating environment of the 
calling procedure, are stored in the markstack of the cal led 
procedure. This is so that the pseudo-variables may be restored to 
pre-call conditions when control is returned to the calling procedure. 

For example, the call to COMPINIT causes conditions in COMPILER 
just before the call to be stored in CQMPINIT's markstack in the 
following manner: 



MarkStack DYNamic link (MSDYN) < — MP 
" " IPC<MSIPC> < — IC 
» " SEGment Poin ter < MSSEG) < — SEG 
■' » Jump TABle < MSJTAB) < — JTAB 

" " Stack Pointer <SP) < — SP 
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In addition a Static Link field becomes a pointer to the data 
segment of the lexical parent of the called procedure. In particular/ 
it points to the Static Link field of parent's markstack. After the 
building of the data segment new values for IC, SEG, SPi MP, JTAB, and 
NP are established for the new procedure. 

When the call to CLEARSCREEN is made on line C» another data 
segment is added to the stack and again the pseudo-variables are 
stored in the new markstack, as well as the appropriate Static Link, 
and updated. Note that now the SEG no longer points to the COMPINIT 
procedure dictionary! but to the Pascalsystem dictionary. 

No code segment for CLEARSCREEN is added to the stack before the 
data segment since the code for CLEARSCREEN is already present in 
segment Pascalsystem. So its invocation causes only a data segment to 
be added to the stack. When CLEARSCREEN and INIT are completed, the 
COMPILER data segment will again be the top element on the stack. 

Figure 8 is a detailed diagram of the stack during execution of 
an instruction in CLEARSCREEN, including appropriate pointers for 
static, dynamic, etc. links of CLEARSCREEN's markstack. Note where 
the pseudo-variables point in the stack. In particular, JTAB points 
inside CLEARSCREEN code section which is in the Pascalsystem code 
segment, IC points inside that CLEARSCREEN code, and SEG points to the 
base of the Pascalsystem code segment. 
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low addresses 
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FIGURE 8. The stack during clearscreen 



The introduction promised a top-down description of the Pascal 
pseudo-machine. Figure 9 reflects that top-down process by showing 
the relationships among diagrams 2 through 7. 



code file 
figure 2 



PASCALSYSTEM I >i figure 4 



segment 
dictionary 



J CLEARSCREEN 
S code detail 



>i figure 5 

! proc. code 
i detail 



>', figure 3 I 

i segment dictionary detail ! 



system memory 

figure 8 
code segment 



COMPINIT 
data segment 



>i figure 4 ! 



>i figure 7 I 

! data segment detail I 



FIGURE 9. RELATIONSHIP OF DOCUMENT FIGURES 
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FIGURE 10. 



PROGRAM PASCALSYSTEMj 
VAR 

SYSCOM: SYSCQMRECi 

CH:CHAR; 
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PROCEDURE CLEARSCREEN: FORWARD. 

SEGMENT PROCEDURE USERPROGRAM; 
BEGIN 

END; 
SEGMENT PROCEDURE COMPILER; 
VAR 

BY, OP: INTEGER; 

SYMCURSOR: INTEGER; 

PROCEDURE INSYMBOL; FORWARD; 

SEGMENT PROCEDURE COMPINIT; 
VAR 

I, J: INTEGER; 

BOOL: BOOLEAN; 
BEGIN 



I:=lJ 

CLEARSCREEN) 

INSYMBOL; 



-LINE C 



END; 

PROCEDURE INSYMBOL; 
BEGIN . . . END; 

PROCEDURE BLOCK; 
BEGIN . . . END; 
BEGIN <*COMPILER*) 



COMPINIT; 
INSYMBOL; 



-LINE B 



END; <*COMPILER*> 

SEGMENT PROCEDURE EDITOR; 
BEGIN . . . END; 

PROCEDURE CLEARSCREEN 
BEGIN 



WRITE<- 
END; 



>; 



BEGIN <*PASCALSYSTEM*> 
REPEAT 

READ<CH); 
CASE CH OF 
C: COMPILER; 
E: EDITOR; 
U: USERPROGRAM 



-LINE A 



END(*CASE*) 
UNTIL CH = 'H' 
END. 
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♦a-***************** 

* THE CALCULATOR * 
******************* 

Version I. 4 



* Section 4. i * 
January 1978 



CALCULATOR is a program written by Dale Ander to utilize the 
computer as a calculator. 

When the program is, running the following prompt comes up '->' 
and you are expected to enter a one line expression in algebraic form. 

You may have up to 25 different variables, each with different 
values assigned by you using the syntax of the given grammer. Only the 
first 8 letters are used to distinguish between variables. Once 
variables have a value they may be used like constants. There arm two 
built-in variables: PI (3.141593) and E (2.718282), however these 
values may be changed by the user. 

There is no distinction made between upper and lower case 
letters. 

The MOD function is the backslash '\': the PASCAL MOD function 
is used and the operands are rounded to make them integers. WARNING: 
Since this uses the PASCAL defn. of MOD ( see Jensen & Wirths' Pascal 
User Manual and Report Second Edition page 108) the results obtained 
may not be as expected. 

The operand of the factorial function 'FAC is also rounded to 
make it an integer and it must be between zero and thirty-three 
inclusive or else the expression will be rejected. 

The uparrow "*' is used for exponentiation. The operand must be 
positive or the expression will be rejected as e A Y LN ( X ) is used 
to calculate the answer. 

'LASTX' is a constant which is assigned the value of the 
previous correct expression by the calculator and may be used in the 
following expression instead of inserting the same expression again. 

Angles for the TRIG functions must be in RADIANS. Degree to 
Radian conversion is accomplished by RADANGLE = ( PI / 180 > * DEGANGLE. 

This program will bomb on an execution error if an over or 
underflow occurs. If this happens all user assigned variables and their 
values will be lost. 

To leave the calculator mode simply type a RETURN immediately 
following the prompt. 



ifeV \ *■ 
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EXAMPLE OF CALCULATOR SESSION: 

-> PI 

3. 141592 
-> LASTX 

3. 141592 
-> HALFPI = PI / 2 

1. 570796 
-> SIN ( HALFPI ) 

1. 
->A = B = C = D = F = ( FAC <3) / 2 ) 

3.0 
-> A 

3. O 
-> C 

3.0 
-> 1 + 2 

3.0 
-> 3 + 7 / 4 

4.75 
-> SORT (2*2+3*3) 

3. 605551 
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************** *************** 
* THE LINKER * * Section 4. 2 * 
************** *************** 

Version 1.4 January 1978 

The linker is a program which "stitches" the separately 
compiled segments of a very large program together. When executing, it 
uill ask for 

Output Code File? 

Reply with the name of the file you wish it to create. Next it will ask 

Link Code File? 

Reply with any one of the code files you want linked into the 
output file. It will ask about each of the segments within the code 
file individually. To link them into the output file reply with a 
'Y'(esi any other character will make the LINKER go on to the next 
segment Note that it will not ask about segments containing no code. 
After exhausting all segments within one code file, the LINKER will a« 
for another. Continue to reply in a like manner until all your fi 1 ** 
are linked together. Terminate execution with a carriage return. This 
will lock the output file onto your disk and exit the LINKER. 

In many cases it will be beneficial for the output file to be 
named the same as one of the to-be linked files. This duplicate naming 
will cause the new output file to replace the old file. <J£JLS- . 
advisable to re-bootstrap after such a procedure whe n working with the 
sus+em ) If you ask the linker to link in the same segment procedure 
twice (i. e. two segment procedures with the same segment number) while 
running LINKER, it will ask you to reconfirm that link. It does so 
because linking that seqment in twice will result in wasted blocks on 
disk within the code file since the segment, as was previously read in, 
is still there. 

To replace a segment, re-execute LINKER and link the new 
segment in place of the old one. LINKER will inform you of any 
input/output errors that it incurs while running. 

Creating a new system: 

In order to create a new system, or to change part of it, you 
will need to compile that segment of the system. In order to do this 
so that all parts of the system will be talking to each other 
correctly, it is imperative that they all be compiled with the same 
globals Dummy declarations of the segments that precede the segment 
you are working on are necessary in order to ensure that your segment 
gets the appropriate segment number. Having successfully compiled your 
segment, follow the procedure described above. 

You may name the output file whatever you wish. The input 
"link" file(s) need to be those code files which the compilations > of 
your segment<5) has(have) generated and the system. An example of 
stitching three code files follows: 
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Example: 

This is one file (A. TEXT) containing one segment procedure of a 
small system, which is to be linked later with other segment 
procedures. 

PROGRAM LINKDEMQ; 
VAR I: INTEGER; 

PROCEDURE XIT; FORWARD; 

SEGMENT PROCEDURE A; 
BEGIN 

WRITELNC I HAVE ENTERED A')i 

XIT; 
END; 

PROCEDURE XIT; 

BEGIN 

END; <* A DUMMY XIT *) 

BEGIN 

<* DUMMY MAIN BLOCK *) 
END. 

This is a second file (B. TEXT) containing another segement of 
this sample system. Note the forward declarations .of A and XIT. 

PROGRAM LINKDEMO; 
VAR I: INTEGER; 

PROCEDURE XIT; FORWARD; 

SEGMENT PROCEDURE A; 
BEGIN 

<* DUMMY BLOCK *> 
END; 

SEGMENT PROCEDURE B; 
BEGIN 

XIT; 

WRITELN< 'THIS IS IN B'); 
END; 

PROCEDURE XIT; BEGIN END; <* ANOTHER DUMMY XIT *) 

BEGIN 

<* DUMMY MAIN BLOCK *) 
END. 

This is the outer block of the system. It is the file which 
contains the actual declarations for the global routines as well as the 
outer block of the system. Note that all segment procedures are 
declared with dummy blocks. 
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PROGRAM LINKDEMQi 
VAR I: INTEGER; 

PROCEDURE XIT; 
FORWARD! 

SEGMENT PROCEDURE Af 
BEGIN 

<* DUMMY BLOCK *) 
END; 

SEGMENT PROCEDURE B» 
BEGIN 

<* DUMMY BLOCK *> 
ENDi 

PROCEDURE XIT; 
BEGIN 

WRITELNC THIS IS THE CODE FOR XIT')i 
END; 

BEGIN 

WRITEC THIS IS THE MAIN PROGRAM'); 

B; 

A; 
END. 

If each of these files (A. TEXT, B. TEXT, and O. TEXT) is compiled 
separately and saved as A, B and respectively, the session with the 
linker would look as follows: 

Output code file? MYPROG. CODE 

Link cade file? A. CODE 

Linking LINKDEMO. Please Conf irm<y/n) N 

Linking A . Please Conf irm(y/n) Y 

A Seg # 10, Block 1, 56 Bytes 

Link code file? B. CODE 

Linking LINKDEMO. Please ConfirmCy/n) N 

Linking B . Please Co. -irm(y/n) Y 

B SEG # 11, BLOCK 2, 50 BYTES 

Link code file? O. CODE 

Linking LINKDEMO. Please Confirm<y/n) Y 

LINKDEMO SEG # 1, BLOCK 3, 116 BYTES 

Link code file? 

String to be added to file? Copyright (c) 1978, Regents of Univ. Cal. 

This session will create the file MYPROG. The string, which is 
added to the header page of the code file, is useful for making code 
files distinguishable from other files during disk recovery or for 
adding copyright notices to object files. 
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* SETUP -SYSTEM RECONFIGURATION * * Section 4. 3 * 
Version: I. 4 January 1978 



I. INTRODUCTION 

The SETUP program enables the user to reconfigure the UCSD 
PASCAL Operating System to suit his equipment or taste. It 
accomplishes this remarkable feat by altering the contents of system 
global variables. Most modifications are related to adapting the 
system for use with different terminalsr while others adapt the system 
to differences in machine configuration ( eg. Whether or not it is 
equipped with a real time clock. ). SETUP enables the user to make 
these changes at any time, quickly and easily* either permanently or 
temporarily. 

The UCSD PASCAL Operating System has certain features making it 
especially well suited to high speed CRT devices. It is easily 
adaptable to other terminal units as well, including storage tube and 
slow impact printing devices. The PASCAL system must be adapted to 
differences between the hardware designs of these terminals as well as 
to the fact that control characters are not standardized at this time. 



II. -USING THE SETUP PROGRAM 

A. DEFAULT CONFIGURATION 

The UCSD PASCAL system assumes that all terminals respond to 
the standard ASCII <line feed> (decimal 10/ octal 12) and <carriage 
Teturn> (decimal 13. octal 15) characters. With the configuration in 
which it is supplied, the system uses these two control codes and no 
ether cursor addressing schemes. The system also assumes that the NUL 
<0) character does nothing o. serious consequence to the terminal. The 
ASCII underline character (decimal 95. octal 137) is interpreted as the 
single character delete key (CHARDEL). Thus, all terminals "look like" 
Tele— types to the system in its default configuration. This has been 
done to make the system immediately compatible with as many different 
terminals as possible. By using SETUP to modify this Teletype-ish 
response, the user can take full advantage of the screen-oriented 
display features of UCSD PASCAL. As noted above, there are other 
relevant differences between installations, however the display options 
aTts the most "visible" to the user. 
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B. HOW TO DO IT. STEP BY STEP 

SETUP is run like any other compiled PASCAL program, by 
entering the "Command: " level of the UCSD PASCAL system and typing 'X' 
( for execute >, followed by the filename 'SETUP' (Don't use the quote 
marks) and a Carriage return>. If the system is working correctly, 
you will then see the prompt line for the command level of SETUP: 

SETUP. N(ew, SUngle, L(ist, FUadix, Permanent, Q(uit, <ESC> 

First, type 'L' for 'List'. This should cause SETUP to list 
l a l It * h * variables with ^ich it deals and their current values. 
Note that the output generated may exceed the display capacity of your 
screen and the first lines will be lost. To avoid this, type 'L' again 
and use CTRL S to freeze the display before the top lines get away 
Typing CTRL S again will unfreeze the display so that it can continue - 
no output will be lost. Next, type 'R ' for 'Radix'. The prompt line 
informs you that you may now type '0', 'D' or 'H' to change the "default 
radix" to Octal, Decimal or Hexadecimal, respectively. Try typing 
these characters in any order and note that the new default radix is 
displayed each time. See section F below for more on Radix Default 
Setting. Leave the default radix set the way you like it and type 
<carriage return> to return to the command level of SETUP. Now type 'N' 
for the 'New Configuration Mode'. You will see a prompt that looks 
•1KB this. 

New Configuration CHANGE: 

CO(ct) D<ec) H<exU CNew Value>, <Space>, <CR>, <ESC> 

hB ,„„ J^ S l h C l m( 2t nd t aV l ex P lained in greater depth under section D 
below. Note that the first variable is displayed beneath the prompt 
line, along with the current default radix. The variable display 
should look like this: 

(STUPID) STUdent Program ID? CFALSED: 




o?, 1 ^ 1 *' aS "° ted in section I"- A of this document. Press 'T' and' 
IIEJV" 1 f rM RUE and the nfeXt vriabl. will be displayed ^L 
„ PaC ! r> ' ^ S ValUe ° f the cu ^ent variable will be unchanged 
and the next variable will be displayed. Press <spaceb a r> several 

fn m !L r V ll al variables wil1 be displayed. Press Carriage return> 
to return to the command level of SETUP. Use 'L(ist)' <ie type 'L') 
to display the variables once again and note that STUPID has been 
changed. Finally, type <ESCAPE> ( <ALTMODE> ) to exit from SETUP, 
returning to the command level of the PASCAL system. Sections II I and 
II. H below explain the difference between the <ESCAPE> and 'Q(uit)' 
commands for exiting SETUP. The above is a simple u.al k-through of 
SETUP, showing only a few of its many wonderful features. 
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C. SETUP COMMAND SUMMARY 

'N' — New configuration mode. Each of the variables 

accessible with SETUP is displayed in turn. The user may change 
any or all of them and exit at any time. 

'S' — Single change mode. The user must specify the 
variable(s) he wishes to change by name. 

'L' — List. 

Displays a list of all the accessible variables and their 
current value. 

'R' — Radix default setter. 

The user may change character variables in either octali 
decimal or hexadecimal radices. This routine sets the 
default radix. 

'P' — Permanent. 

Updates the disk file 'SYSTEM. INTERP' to incorporate the 
changes made using SETUP < Otherwise! the next time you 
bootstrap, the changes won't be there). This does not 
cause an exit from SETUP. 

'G' — Quit. 

Exit SETUP and incorporate the changes that have been 
made into the currently running PASCAL system. 

<ESC> — Escape. 

Exit SETUP and cancel all changes that have been made 
(except Permanent changes). 



D. NEW CONFIGURATION MODE 

In New Configuration mode, each variable is displayed in turn 
for the user to change if desired. There are several options for the 
user for each variable displayed: <1) He may press <spacebar> to 
proceed to the next item. <2> He may press <carriage return> to exit 
from New Configuration mode, .iccepting the changes he has made. (3) He 
may press <Escape> to exit from New Configuration mode without 
accepting any of the changes, or <4> he may make a change by typing in 
the new value, followed by a <spacebar> to proceed, a Ccarriage return> 
accept and exit or an <escape> to abort and exit. Exiting from New 
Configuration mode will return program control to the outer level of 
SETUP. 

Changing a Boolean variable is accomplished by entering a T or 

Y for True, or an F or N for False when prompted by the program. Other 

answers will generate an error message, leaving the current value of 
the variable unchanged. 
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Changing character variables may be done in either octal, 
decimal radices. The default radix is displayed with the prompt for 
the variable and a new value may be entered immediatly in that radix 
To use one of the other radices, simply type '0' for octal, 'D' for 
decimal, or 'H' for hexadecimal and the entry radix will be changed for 
this particular variable. The radix may be swapped around as much as 
you want until another character is typed after which the radix is 
fixed at its last setting. Note that the default radix remains 
unchanged until changed using the Radix default setting procedure. 

Integer variables are most easily changed in decimal, thus the 
working radix for Integer variables is temporarily changed to decimal 
The user may use the '0', 'D' and 'H' commands as before, however 



E. SINGLE CHANGE MODE 

Single Change mode is similar to New Configuration mode in that 
the prompts and responses are identical for each individual variable. 
See New Configuration mode for further information on how to change a 
variable once it is displayed. The two modes differ in that Single 
change mode requires the user to enter the name of the variable he 
wishes to change. The program then displays only that variable If 
the user types <spacebar> before or after entering the new value, the 
program will ask him for another identifier. If the user types a 
<carriage return> instead, the new value will be accepted and he will 
be back in the outer SETUP level. If he types <Escape>, all the 
changes he has made since entering Single Change mode will be aborted 
and he will return to the command mode. 



F. RADIX DEFAULT SETTING 

The Radix Default Setting procedure displays the current 
default radix ( initialized as decimal ) and accepts changes as 
follows: 'O' changes it to octal, 'H' changes it to hexadecimal and 'D' 
changes it to denmal. A Carriage return> will return the user to the 
outer SETUP levex. Unless otherwise specified when changing a 
TI^tt!*' .^•prompt display and the changes to all character variables 
tASCII) will be made in the default radix. 



G. PERMANENT 

The Permanent procedure allows the user to preserve his 
modifications as permanent chanpes in the disk file 'SYSTEM INTERP' 
These changes may be updated at any time throuah use of this 

Soli™*H e h„ ?2 program ™2 UeStS the user to specify a volume name 
followed by a Carriage returns if no volume is given, the system 
default volume is assumed, and entering a '*' implies the bootstrap 
disk ( see document UD2, the File Handler ). The program will respond 
'Are you sure?' to request the user to confirm the change. Typing T 
Y will cause the change to be carried out) any other response will 
leave -SYSTEM. INTERP ' unchanged. The user will not exit from~SE?UP but 
return to the outer SETUP level. v 
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H. QUIT 

Quit causes all changes that have been accepted from the New 
and Single modes to be incorporated into the currently running 
operating system. Quit terminates the SETUP program and returns the 
user to the PASCAL system command level. At that time, the user will 
discover that all changes he has made using SETUP are now in 
effect, except FILLCOUNT. which will not take effect until the system is 
reinitialized. 



I. <ESCAPE> 

Typing <Escape> (or <ALTMODE> on some terminals) causes the 
SETUP program to terminate without incorporating any changes into the 
currently running PASCAL system. Any changes that may have been made 
are now discarded and the user returns to the PASCAL system command 
level. 



J. STRATEGIES FOR USING SETUP 

We strongly recommend that no Permanent changes be made until 
the results have been thoroughly tested by simply using the 'G'uit 
command. It should be noted that, if the changes are found to be 
satisfactory, they may be made permanent by simply executing SETUP and 
typing 'P'. Even though the modifications may have been made on a 
previous run of SETUP, the Permanent mode will incorporate those 
changes into the disk file. UNLESS the system has been rebootstrapped 
since they were made, in which case they are gone. 



III. OPTIONS PROVIDED 

A. Miscellaneous 

B. Terminal Control ^odes 

C. User Command Codes 



A. MISCELLANEOUS 

STUPID (True. False): STUdent Program ID. Not yet implemented. 

Puggested setting: False. Do not set to True at this 
time. 
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SLOWTERM (True, False): Slow Terminal. When SLOWTERM is true, 

the system issues abbreviated promptlines and messages. 

Suggested setting: 600 baud and under — True, otherwise 
False. Default is False. 
HASXYCRT <True, False): X-Y cursor addressing is available. 

When HASXYCRT is true, the system assumes that the cursor may 
be addressed using an X-Y addressing scheme. This variable is 
used only by the screen-oriented editor. 

Suggested setting: Consult terminal manual to see if 
this feature is available on your terminal. 
Default is False. 
HASLCCRT (Boolean): Lower case letters are available. 

HASLCCRT informs the system whether or not lower case 
letters may be input. This variable is used only by 
the screen-oriented editor. 

Suggested setting: Set true if lower case letters are 

on terminal, otherwise set false. Default is 
False. 
WIDTH (Integer): Screen Width. 

The WIDTH setting affects the screen-oriented editor. 

Suggested setting: Set to number of characters per 
line. Default is 72. 

HEIGHT (Integer): Screen Height. HEIGHT is used by several 
system routines to govern the page length of the 
display. 

Suggested setting: Set to number of lines displayable 

at one time on your terminal. On non-paging 
devices (ie. those which scroll, eg. 
hardcopy or "glass teletypes"), set to zero. 
Default is zero. 

HASCLOCK (True, False): A real time clock is available. A real 
time clock module, such as the DEC KW11, may be found 
on many processors. If available it is used by the 
PASCAL system to optimize disk directory updates. See 
the TIME intrinsic in the Intrinsics document. 

Suggested setting: If a real time clock is available, 
set true, otherwise set false. Default is 
False. 

BADCH (Character): Symbol for unprintable character. When a 

code is to be printed which does not denote a printable 
character in the ASCII code, the BADCH character is 
printed. 
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Suggested setting: Default is question mark ( ? )> 
(Decimal 63. Octal 77). 



B. 



TERMINAL CONTROL CODES 



The Terminal Control C 
the manufacturer of the indivi 
functions such as erasing the 
control codes are now standard 
vary a great deal. To enable t 
variancesi it is possible for 
to conform to his terminal. No 
not subject to the whim of the 
which follow. Rather, they mu 
specifications. Note also tha 
Codes except HOME to zero, a t 
system. This is the configura 
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II character codes defined by 
1 to control certain terminal 
ing a line feed. Many 
r there are also some that 
stem to adapt to these 
redefine the following values 
Terminal Control Codes are 
e the User Command Codes 
o the terminal manufacturer's 
all the Terminal Control 
look like a Teletype to the 
h the system is supplied. 



ESCAPE (Character): Escape-Mode character. Some terminal 

devices require an "escape sequence" for certain func- 
tions. In these circumstances, there is a 
distinguished character which sends the terminal into 
the "escape mode" (the ESCAPE character). It is then 
followed by another control character, such as 
ERASEEOS. 

Suggested setting: Consult manufacturer's specs; if 

escape sequences are not used, set to zero, 
otherwise set to specs. Default is zero. 
HOME (Character): Move cursor Home. Another screen terminal 

feature, the HOME command is used to move the cursor to 
the upper left ("home") corner of the screen. 

Suggested setting: Set to manufacturer's specs; 
IMPORTANT — if not available, set to 
<carriage return> character. Default is 
o' 'al 15, decimal 13, hex OD. 
ERASEEOS (Character): Erase to End of Screen. On screen 

terminals, usually there is available a command for 

erasing either the entire screen or from the cursor to 

the end of the screen. 

Suggested setting: Set to manufacturer's specs; if not 
available, set to zero. Default is zero. 



ERASEEOL (Character): Erase to End of Line. Screen terminals 
frequently offer the user the option of erasing from 
the cursor position to the end of the current line, 
without disturbing the rest of the screen. ERASEEOL is 
the control character which causes this function. 
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Suggested setting: Set to manufacturer's specs; if not 
available, set to zero. Default is zero. 

BACKSPACE (Character): The BACKSPACE control character causes 
the terminal to move the cursor LEFT one position. 

Suggested setting: Set to code emitted by backspace key 
on terminal, if such exists (usually 

wnirc ,^k . » decimal 8, octal 10). Default is zero. 

NDFS (Character): Non-Destructive Forward Space. NDFS is the 
control character which causes the cursor to be moved 
RIGHT one position, without obliterating displayed 
data. ' 

Suggested setting: Set of manufacturer's specs; if not 
available, set to zero. Default is zero. 

RLF (Character): Reverse Line Feed. The RLF character is the 
control character causing the cursor to move UP one 
line. 

Suggested setting: Set to manufacturer's specsi if not 
available, set to zero. Default is zero. 

FILLCOUNT (Integer): Number of noils to «»nd after Y~*xJs 

cwsor wove. Many tgpes of terminals require a delay 
after certain cursor movements which enables the 
terminal to complete the movement before the next 
character is sent. FILLCOUNT number of nulls will be 
sent after carriage returns, ERASEEOL, ERASEEOS and 
KLF. 

Suggested setting: If a delay is required by your 

terminal, set FILLCOUNT to the longest delay 
needed for the baud rate at which you plan 
to run. If no delay is needed, set 
FILLCOUNT to zero. Default is 10 
C. USER COMMAND CODES 

e „ c . ThB ^^Wing are user-selectable command codes. The PASCAL 
system responds to certain keyboard commands for special functions 
The exact key which actuates these functions is sometimes sCb.ect to 

«»Jn- Whl 2V y *K Ch : nBlnfl thC ASC11 Code to which *"• Astern wm 
respond. Note that these are codes which are INPUT to the system, not 
the output control codes to which the terminal responds 



UP, DOWN, LEFT, RIGHT(Character): Vector keys. These keys cau 
the cursor to move according to their name, either 
right or left one space, or up or down one line 
t:me. The screen- oriented editor responds to t 
commands. 
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Suggested setting: If vector keys are available/ set to 
the codes emitted by each key (consult 
terminal manual), otherwise, set to some 
convenient codes such as CTRL W. Z. A. S or 
CTRL E. S. X. D. Default is zero. 



CHARDEL (Character): Single character delete key. The CHARDEL 
key will cause a single character to be removed from 
the end of the user's text buffer when entering an 
input string ( eg. while editing ). 

Suggested setting: Set to code emitted by Backspace key 
(Decimal 8. Octal 10). Default is octal 
137. decimal 95 (ASCII underline). 
LINEDEL (Character): Line delete character. Depressing LINEDEL 
will cause the current line of input to be erased. 
LINEDEL is similar in function to CHARDEL differing in 
that CHARDEL does only single characters at a time. 
Successive actuations of LINEDEL will not erase 
successive lines of text, unlike CHARDEL which will 
erase successive characters. 

Suggested setting: Rubout or Delete key (usually 
Decimal 127. Octal 177, which is the 
default). 



STOP (Character): Console output stop character. The STOP 

character is a toggle; when pressed, the key will cause 
output to the file 'OUTPUT' to cease. When the key is 
depressed again, the write to file 'OUTPUT' will resume 
where it left off. This function is very useful for 
reading data which is being displayed faster than one 
can read. 

Suggested setting: CTRL 5 (Decimal 19, Octal 23) is the 
default. 



FLUSH (Character): Console output cancel character. Similar in 
concept and usage to the STOP key. the FLUSH key will 
cause output to the file 'OUTPUT' to go undisplayed 
until FLUSH is pressed again or the system writes to 
file 'KEYBOARD'. Note that, unlike the STOP key, 
processing continues uninterrupted while output goes 
undisplayed. 

Suggested setting: CTRL F ( 6 ) is the default. 



BREAK (Character): BREAK will cause the program currently 
executing to be terminated with a run— time error 
i (timed iately . 
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Suggested setting: Code emitted by Break key on 

terminal, (usually null — O). You may wish 
to set BREAK to something difficult to type 
accidentally. Default is zero. 

EOF (Character): Console end of file character. When reading 
from the files KEYBOARD or INPUT or the unit 
'CONSOLE: ', this key sets the Boolean function EOF to 
TRUE. See the discussion of the EOF intrinsic in 
another document. 

Suggested setting: CTRL I (Decimal 26, Octal 32) is the 
default. 

ALTMODE (Character): Altmode or Escape key. The ALTMODE or 

ESCAPE key is used as a command in various levels of 
the PASCAL system. Consult specific documentation for 
its meaning in each context. 

Suggested setting: Consult terminal manual and set to 

the code generated by the appropriate key on 
your terminal (Usually octal 33, decimal 
27). Default is zero. 
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« BOOTSTRAP COPIER » * Section 4. 4 * 

Version I. 4 January 1978 

The bootstrap copier BOOTER. CODE is a friendly handshaking 
program. It will ask you for the unitnumber of the volume you wish it 
to write the bootstrap on. Refer to Table 5 for a list of volume 
numbers. It will then ask you for a file name to write as the 
bootstrap. It writes the first two blocks of that file, so if you want 
to copy the bootstrap from an existing disk, just give it the diskname, 
and it will copy the bootstrap from the disk you have named to the unit 
you have numbered. 

To execute the BOOTER program, type X BOOTER to C<ommand level 
(assuming that you indeed have a copy of BOOTER. CODE on your disk). 

In some future release the bootstrap copier will be moved into 
the zero command of the F(iler, buti that is some future release 
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#»#****** ***»*****#****■* 
« PATCH * * Section 4. 5 * 
*#«#*#«•»■* ***#******#**** 

Version 1.4 January 197B 
The PATCH program is written for those programmers who simply 
must see it in HEX. It is screen oriented, and rehires a correct 
version of the system procedure GOTOXY to be bound in. It uses the 
vector keys* like the screen oriented editor, to position the cursor 
over the hex digit in question. Typing the correct hex digit will 
update the in-memory version of the block you G(ot. Then you must type 
'P' to the PCatch: level to write the block back to disk. 

The commands PATCH understands are as follows: 

F(ile: will ask for a filename (or <return for unit-number>). 

Q<uit: leaves PATCH. 

0(et: will ask for a block number (and expects <cr>). 

M(ixed: Displays the block in mixed ascii and hex. ascii for 
those things that it can print, hex for the rest. 

H(ex: Displays the block all in hex. 

P(ut: Writes the block out. 

While in display mode: 

any hex character: goes into the block. 

ang vector key: moves one that direction. 

U. Z.L. R. Up. Down. Left. Right. (Z because D is a hex char) 

S(tuff: Stuffs the display for however many bytes you tell it. 

GKuit: Goes back to P(ateh. 
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************************************ *************** 
* SERIAL LINE INTERFACE DRIVER KIT * * Section 4. 6 * 
************************************ *************** 

Version 1.4 January 1978 

This utility program designed for interactive use between 
the TERAK B510A and other computer systems. 

The program allows the user to inter-face the TERAK with other systems 
by emulating a terminal. File transfer is accomplished by having the 
program type the correct sequence of characters that would cause the 
host system to generate a listing stream to the terminal. It swallows 
these characters as they arrive, and ships them off to whatever file 
you have specified. 

In order to make use of the interface between the two machines 
it is necessary to type <esc>. which then responds with a program prompt 
of the form: 

Filexfer: G<et>. S(end). P<ascal). H(ost) 

Following is a description of each of the available commands. 

0(et) : This command prompts the user for a host file title 
by asking for a 'Host input file?' and then prompts 
with 'Pascal output file?' . Assuming that a legal 
B6700 file title was entered the program will proceed 
to transfer the requested file to a TERAK file<assum- 
ing no I/O errors occur). Once the transfer is com- 
plete the user will be notified and the above prompt 
line will appear again. 

SCend) : The program will prompt with 'Pascal input file?' and 
following the user's response will then ask for the 
'Host output file?'. IF the named Pascal file exists 
it will be transferred to a host file(and to a cor- 
responding ARCHIVE file) under the title given in re- 
sponse to the second prompt. 

P(ascal): This simply returns control to the Pascal Operating 
System. To return to the program host it is neces- 
sary to re-execute the program. 

H(ost) : This command will return control to the host system. 

Another <esc> will respond with the 'File- xfer' prompt. 



You will need to modify the source of this program in four 
places to make it behave properly with your host machine. The first 
two are at the very top of the program, there arm two constants: 
HALFDUPLEX, and UPPERCASE. These need to be appropriately equated to 
either TRUE or FALSE as the case may be. The third is at the beginning 
of procedure SENDFILE. The line that reads: 
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S :- CONCATC ', TITLE, ' ')-, 

needs to be modified as t 



S := CQNCATC '.TITLE, ' '); 

iJrrii'o;*;^:;;:;; 8 the flle "•«*»•< - title ** . continuous 
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************************** *♦***«********» 

« DEMONSTRATION PROGRAMS * * Section 4. 7 * 

Version I. 4 January 1978 

The demonstration programs available with the UCSD PASCAL 
SYSTEM are constantly changing, and. as documenting a moving target is 
a difficult proposition, an extra disclaimer that we are not 
responsible for any discrepancies between the documents and the actual 
programs is in order. All demonstration programs listed here are 
specific to the TERAK 8510a. 



CYCLE 



A potpourri of graphics to keep the machine busy. Turtle 
'squirals' and other 'pretty' pictures keep the screen moving. 
CYCLE demonstrates some of the capabilities of the turtle 
graphics package as well as displays generated with more 
'primitive' low level graphics techniques such as DRAWLINE 
and recursively based algorithms. CYCLE also gives a demon- 
stration of the panning capabilities of the screen graphics. 
The program may be terminated by typing a carriage return 
whereupon it will finish the current cycle and exit. 



TURTLE 



This program is a useful introduction to the use of UCSD 
PASCAL turtle graphics procedures and functions. It emu- 
lates the turtle in an interactive mode allowing the user 
to type in turtle commandsCe. g. M0VEC50) ) which are activated 
(assuming that they are syntactically correct) by typing 
a carriage return following the input string. Commands 
not displayed on the prompt line include MOVETO(x.y) and 
TURNTO(angle). 



SINEX : ...,.*. 

Demonstrates the panning and double buffering capabilities 
of graphics mode of screen. Calculates and plots Y=SIN(X)/X. 
Program and panning may be terminated by typing return. 

DERIVATIVE : 

This demonstrates mathematical prowess by calculating suc- 
cessive derivatives of Y=SIN(X)/X via the difference method. 
It will continue until deverivative 'blows up'(i. e. exceeds 
screen boundaries. ) Program waits for a carriage return. 



CHEDIT 



The character set editor. (See document UD9> 



CHDEMO 



An interactive demonstration of the character editing facilities 
of the CHEDIT program. Commands of the form <esc> followed by 
a digit will enable use of various character sets available on 
the disk. The user may type in the alloted workspace to see 
the format of any specific characters. (This program is self-prompt- 
ing). End by typing <esc><esc>. 
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LIFE 



LIFEDEMO: 



This is John Horton Conway's mathematical automata game. Patterns 
of dots may be created and then set into 'motion' after which they 
will 'reproduce' and 'terminate' until either a static state or 
death of all dots results. Dots maybe set with 'I'. Moving commands 
are: up='U'. down=<linef eed>, right=<space>. lef t=<backspace>. 
homecursor='H', centercursor='C '. Typing 'S' will start the game. 

An automatic demonstration of LIFE. The game will shoot a 'glider' 
pattern at a 'pulsar'. 



RATMAZE: 



This is an entertaining graphics demonstration that randomly 
generates a maze based upon a three digit input 'code'. (Initials 
are a good idea.) Upon completing the maze(which, incidentally/ 
has one and only one solution path) it sends a 'rat' through 
the maze to solve it in a relatively unintelligent fashion. (The 
busy rat leaves 'droppings' over all paths that he runs.) Pro- 
gram awaits a carriage return once the maze has been solved. 



DOODLE : 



CAJ 



A 'creative' computer graphic artist program that creates 
aesthetically;?) pleasing works of art composed of squiggles. 
dots/ circles/ spiders and various other patterns. 

Demonstrates I (nstuctional S(upport package for a mathematics 
quiz. (Self-prompting) 



DEVELOPER: 



A utility program that formats FOTOFILES for the PRINTRONIX 
printer. (See document elsewhere. ) 



PATT1 



PATT2 



Dynamic pattern generation using DRAWLINE intrinsic with 
XOR— mode demonstrating interference patterns. 

Similar to PATT1. 



SURFACE 



Demonstrates some of the 3-D graphics potential on the 
TERAK 8510a. First generates necessary data for plotting 
surface( line of periods written on screen ). Then the 
program plots the surface by contour lines utilizing a 
simple hidden line algorithm( implemented with DRAWLINE). 



U. C. S. D. 'PENNY ARCADE ' 



BLOCKADE 



A game of competition for two players. Put the keyboard in 
shift-lock modeti.e. get the red light on the "lock" button 
lit). Player on the right has the vector pad 1,5,3,0 to turn 
his wall. Player on the left uses E, S, F, C to turn his wall. 
The object is to block off your opponents path so as to leave 
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him as little space as possible. First player to 'crash' into 
a path or wall loses the point. Game is continuous and winning 
score is 4. Score will automatically reset to zero at end of 
match. (To stop the program re-boot the system. > No TEXTFILE 
is available on this program. 



WWII : 



HANDBALL 



BREAKOUT 



TANKGAME 



A start on the development of an anti-aircraft game. A random 

number of planes are displayed and subsequently shot down by 

the computer. Game terminates itself upon wiping out all planes. 

Handball is a fast-moving two player game using paddles and a 

ball that speeds up and heads off at unexpected angles. Instructions 

are provided. (Game plays to 11 points and <return> terminates it. ) 

A challenging game for one player. The computer sets up a 'brick' 
wall and it is up to the player to break down as many bricks as 
he can by successfully aiming the ball at the wall so as to break 
through. Balls are served by typing carriage return. Learning -o 
use the paddle will require some practice. The '<' and '>' keys 
move the paddle left or right<with a single press) and hitting 
the space bar (or any other key) will stop it. For faster paddle 
speed press the direction keys twice. Once the ball has broken 
through behind the wall paddle will shorten for an extra chal- 
lenge. 'G'Cret> will terminate game. 

A game of skill and strategy for two players. Game offers a 
selection of terrain for tank battle. Players maneuver around 
playing field and fire shells at opposing player's tank. Game 
is self-prompting and includes a number of variations. 



CHASE : 



A stimulating cat-and-mouse pursuit game offering a number of 
playing variations. Players alternately chase and pursue for 
30-second periods. Movement is provided in 8 directions. Player 
on the right uses vector pad keys( 7, B, 9. 4, 6i 1/ 2, 3 ) and player 
on the left uses keys Qi W. E» A. Di Z» X. C to move their respective 
fighter ships. Typing 'H' will end the game. 
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•a****************************-*** ###*♦***#****** 
* RTli to PASCAL CONVERSION KIT * # Section 4. 8 * 
ft******************************** *«#************ 

Version I. 4 January 1978 




The utility program called RTilTOEDIT is for transferring data 
from a RT11 disk to a PASCAL disk. The program requires a two-drive 
machine and is self-prompting. 
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»#****************************** *************** 
* HEX-DEC I MAL-OCTAL CONVERSION * * Section 4. 9 * 
******************************** *************** 

Version 1.4 January 197S 

This text file contains the declarations necessary for the 
PASCAL programmer to do these common conversions. A quick look at the 
code involved in this should explain how to use them. It should also 
point out some of the neat, powerful things that can be done uiith UCSD 
PASCAL data structures. 

The code file, when run, will prompt you for input in any one 
of the bases, and upon your request return it to you, converted to any 
other of the bases. The program is self-prompting. 
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# CHEDIT - THE CHARACTER EDITOR * * Section 4. 10 * 
*******#«*#***#*****•***■»**■**#**■** *#**■*»********** 

Version I. 4 January 1978 

CHEDIT is a utility program intended only for use on the TERAK 

8510a system. It converses directly with the character generator 

buffer and enables the user to edit the 192 characters in the 8510a's 
soft character set. 

When executing. CHEDIT displays a 10 X 8 rectangular matrix which 
represents the workspace in which the user is editing a particular char- 
acter. A blinking cursor is used to signify location within the matrix. 

Following is a description of the 
available keyboard commands: 

6 : Get a character. (The character typed following the '0' 
will be displayed. ) 

A : Add this bit. (i.e. turn on the bit at present cursor location) 
Z : Zap this bit. (i.e. turn off the bit at current cursor location) 

: Oppose(complement ) bit at current cursor position. 

C : Clear entire character. 

1 : Invert(complement > entire character. 

H : Home the cursor, (upper left corner) 

X : exchange or switch to other half of character set. (X is a 
toggle between STANDARD and OPTIONAL character sets. ) 

M : Move into. This is a multiple character command: 

Next character must be 'X' or 'G'('X' makes change only tempor- 
ary). When the 'G' is finally typed the next character to be 
keyed in will be 'moved into' the character currently being 
displayed, (e.g. if 'A' is current character! then 'M G a' 
will duplicate 'a' in the space belonging to the ASCII chat — 
acter 'A'. ) 

S : Switches (copies) the alternate character set into the current 
set(STANDARD or OPTIONAL) and inverts( complements) the set. 
(This is useful for creating a 'reverse video' set with min- 
imum effort. ) 

G : Quit CHEDIT (no output results, but leaves character generator 

buffer as you have altered it. ) 
K : Keep updated character set (write set to disk as NEWSET. CHARSET 

and exit program. ) 

Vector keys : Move cursor in direction specified. 
Numeric pad : Vector pad defined in standard format: 



up; 1: left; 3: right; O: down; 
bit off; 8: bit swap; 9: bit on; 
Alpha lock sustem wide 
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************* **************** 
* DEVELOPER * * Section 4. 1 1 * 
************* **************** 

Version 1.4 January 1978 

The file entitled DEVELOPER. CODE is a utility program designed 
for converting FOTOFILES into a form compatible for printing on the 
PRINTRONIX PRINTER. In essence, DEVELOPER acts upon a data file 
treating it a seq- uence of bits only. It converts the input FOTOFILE 
and writes out a file called PRINTER. DATA which can then be transferred 
directly to the PRINTRONIX PRINTER. DEVELOPER assumes that the input 
file has been edited on the TERAK 8510a screen and will format any 
input file as being 320 bits across. Thus the printed file will be 
printed out as 320 printer bits wide regardless of the printer file. 
To further generalize the DEVELOPER program it is only necessary to 
Change the 2 occurences of '319' in DEVELOPER. TEXT to whatever row 
size is wished according to the nature of the way in which the original 

FOTOFILE has been edited. For the most part, developer will produce 
an output file <i.e. . PRINTER. DATA) which contains approximately twice 
as many blocks as the original SNAPSHOT file or FOTOFILE. The user 
should be careful with using larger files as DEVELOPER <if left 
unmodified) only checks to see if 64 blocks of free space exist on the 
disk and any output file exceeding this length will be incomplete if 
not enough space is available. 
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* XREF: PASCAL TEXTFILE CROSS-REFERENCING * * Section 4. 12 * 

Version 1.4 January 1978 

The utility program entitled XREF. CODE is useful for creating a 
listing of a Pascal TEXTFILE with an extensive cross-referenced index. 
XREF writes out a file called XREF. LISTING which is a TEXTFILE that 
may be transferred to the printer for easy reference. Basically, the 
cross-referencing catalogs any TEXTFILE by listing, in alphabetic 
order, all recognizable, non-reserved word identifiers. Alongside each 
reference there appears a list of the line numbers on which the 
pertinent identifier occurs. 

In running XREF it is only necessary to specify a legal on-line 
TEXT- FILE followed by the specification of whether a line-numbered 
listing is wanted along with the cross-ref erencing ( i. e. . responding to 
the prompt: 'LISTING?' with a 'Y' will include a line-numbered listing 
and 'N' will not). While XREF is executing the only indication the 
user has of the program's operation is by sounds of the disk-drive and 
the occasional appear- ance of 'Running. . . ' on the screen to signify 
that another page(55 lines) has been processed. 

We thank SPERRY-UNIVAC for their contribution of XREF. 
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* C0MP2: TEXTFILE SOURCE COMPARE * * Section 4. 13 * 
*******#«##**«********#*******■**** a*************** 

Version 1.4 January 1978 

The utility program entitled C0MP2. CODE is useful for comparing 
any two textfiles that need to be checked for differences (that may be 
time- consuming to find). CDMP2 does character-by-character compares 
and notes any and all differences between two (preferably similar) 
textfiles. If there exist no d if f erences < i. e. , the files are identical) 
then the user is notified with a message stating such. Otherwise* if a 
mismatch occurs then the user is prompted in one of two basic ways. 
Any small internal differences between lines in a file will be 
signalled with a 'MISMATCH' followed by a listing of the line(s) in 
each file that were found to dif- fer in any way. If extra text is 
found present in either file then the user is notified with 'EXTRA 
LINES OF TEXT' and is shown what excess text occurred where in the 
pertinent file. Also, empty files and premature end-of-files are 
signalled by the program. 

<* NOTE: IT IS RECOMMENDED THAT THIS PROGRAM BE USED ONLY FOR *) 
<# FILES THAT ARE KNOWN TO BE EXTREMELY SIMILAR IN CONTENT. *> 

We thank SPERRY-UNIVAC for their contribution of C0MP2. 
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***************** **************** 
* GOTOXY BINDER * * Section 4. 14 * 
***************** **************** 

Version I. 4 January 1978 

This program alters the SYSTEM. PASCAL on your default PCrefix 
disk. It prompts you for 'local GOTOXY', a procedure which must be 
created and bound into the system (only once) in order to make your 
system communicate correctly with your screen. 

Look at the file GOTOXY. TEXT on your release disk. This 
file contains a few procedures for doing GOTOXY cursor addressing on a 
few different CRT-type terminals. If the procedure you need is one of 
those, remove it from comments/ comment out any others, recompile it, 
and run BINDER on it. BINDER is a self-instructing program. 

If the GOTOXY cursor-addressing scheme for your terminal is not 
there, create one. Your procedure may not be named GOTOXY because 
this identifier is predeclared at the "*U~" level of compilation. 

Possible error: Fix: 

Nil memory reference at Remove the program heading 

compile time and try again 

Value range error when executing (**U-«) should be the first 
BINDER thing in your GOTOXY file 

Assumptions: 

i. ) You have a screen terminal 

2. ) You have a PASCAL system 

3. ) The upper left-hand corner of the screen is X=0. Y=0. 
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*********************************** **************** 
* DISK DIRECTORY RECOVERY UTILITY * * Section 4. 15 * 
#***♦****************************** **************** 

February 1978 

The utility program RECOVER optimally restores the contents of 
damaged disk directories* including most of those with "hard" errors 
such as CRC errors. At present, only textfiles and codefiles are 
restored, but not systems files or non-editable data files. Undamaged 
parts of the directory are identified and re-used when possible; the 
recovery operation only looks at damaged parts of the directory. Since 
normal damage is only to a few words within the directory, most of the 
directory is returned to the user in exactly its original condition. 
When the directory entry of a file is found to be damaged, the file is 
located on the disk, and its directory entry is restored with the 
program name serving as the filename. If no program name can be found, 
the filename used is DUMMYnnX, where nn is a two-digit integer. 

In operation, RECOVER first reads the directory using a 
modified UNITREAD which ignores CRC and other disk errors. The 
modified UNITREAD temporarily alters the interpreter, so if RECOVER is 
interrupted during this period, the system will have to be re- 
bootstrapped. Errors found in the directory read are displayed on the 
screen. 

Next, RECOVER checks the validity of each entry in the 
directory, by range-checking several different items in the entry. For 
this, the number of entries is found in the header entry; if invalid, 
the last valid entry in the directory is the last entry. 

For each bad entry, RECOVER first looks at the (possibly still 
valid) disk address pointed to by the entry. If no file is present 
there, RECOVER gets the disk addresses from the next previous valid 
entry and the next following valid entry and uses these as limits in 
its search for the file. It searches backwards from the higher limit to 
the lower limit in order to find the most recent update of the file — 
this is because, due to the Editor's updating procedure, several' 
obsolete copies of a textfile may precede the most up-to-date copy on 
the disk. 

If the file is found, the directory entry is restored, using 
the program name as a filename (if none is found, the name DUMMYnnX is 
used). If the name was previously encountered, then ".nn" is appended 
where nn is a unique number. If the file is not found, the entry is 
eliminated. All restored (or originally valid) entries cause the 
message "FILE filename INSERTED" to be displayed whereas eliminated 
entries display the message "FILE filename NOT FOUND" followed by 
"ENTRY n ZAPPED". RECOVER then goes back and processes the next invalid 
entry. 

At the end of the above process, RECOVER will optionally locate 
additional files on the disk for which an (invalid or valid) directory 
entry did not exist. Normally the user will wish to bypass this 
processing, since the additional files in question are probably 
previously deleted files, which are not wanted back in the directory. 
The two occasions for which this option will be useful are (1) when the 
entire directory has been wiped out or zeroed, such that normal 
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processing (described above) is not effective; or (2) when the end of 
the directory has been damaged and normal processing does not pick up 
important files which were located at the end of the directory RECOVER 
displays the cue, "Are there still IMPORTANT files missing?" for which 
the response "Y" executes the option and the response "N" does not If 
the option is executed, RECOVER finds the last file currently in the 
directory, goes to that file, and, beginning at the point after the 
file, scans to the end of the disk, putting each additional file found 
into the directory. 

After the above processing, a reconstructed directory exists in 
memory. RECOVER displays the cue, "GO AHEAD AND UPDATE DIRECTORY?" and 
must receive the response "Y" before actually writing anything on the 
object disk. If a "Y" is received, the write takes place, and if an 
I/O error occurs, then it is assumed that a sector address has been 
wiped out on the object disk and that reformatting will be necessary! 
otherwise, the message "WRITE OK" is displayed. 

The method of detecting a textfile is as follows. A null block 
signifies the possible beginning of a textfile. A block is null if at 
least the first 20 bytes of the block are nulls. The next non-null 
block is found. In this block either (1) the word PROGRAM must be 
found, or (2) 320 editable characters must be found, before 12 
noneditable characters are found, (the numbers here can be changed and 
probably will be. ) The beginning of the file is two blocks before the 
first non-null block. 

The method of detecting a codefile is as follows. A codefile 
must begin with a block containing blanks in bytes 64 to 190, except 
containing a program name (possibly empty) starting at byte 72. 

The end of a textfile is found by searching for a null in the 
„Lm., either P r «ed»d within the previous 10 characters by the string 

END. or in a block followed by a complete block of nulls. Textfiles 
are always rounded up to the next even number of blocks. 

* 

The end of a codefile is determined merely by looking for a 
null block or the beginning of the next file (as determined in the 
directory). Al Hoffman. 
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************************ *************** 

* INSTRUCTIONAL SUPPORT * * Section 5. 1 * 
************************* *************** 



This document describes instructional support facilities for 
UCSD Pascal. The package is designed for automated testing or 
programmed instruction applications. There are two editions of the 
package: student self-test and formal, graded/ quiz. The formal quiz 
version communicates with the student record-keeping system Cdescribed 
elsewhere} through a hardware dependent interface (for security). 
Until further notice, the formal q.uiz system will only be available for 
Terak S510a configurations. The self-test edition relies on features 
of the 1.5 release. Information regarding it is included for planning 
purposes only. For the curious, a preliminary self-test edition is 
available for the 1.4 release. It is similar to the official version 
described, but a large number of annoying conversions will be necessary 
in any source written for the preliminary system. 



Both editions require a CRT terminal with selective erase and X- 
Y cursor addressing. Optional supported features include vector or 
raster graphics and writable character set. Minor adjustments to the 
support system may be necessary, depending on the terminal 
characteristics* these will generally involve replacement of some 
constants. The two editions are compatable with each other, and a unit 
need only be compiled once to be used under both packages. 



The instructional "courseware" applications are programmed in 
Pascal. The authoring environment is enriched by groups of procedures 
made available by the support package. These procedures format text, 
analyze input, produce graphics, make random selections, and track 
student performance. The graphic and text functions afford a large 
measure of display independence for courseware, as all coordinates are 
expressed in logical, authoi — defined units. 
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*********************** *************** 
* STRUCTURE OF A UNIT * * Section 5. 2 * 
*«#******************** *************** 

A single instructional program is known as a "unit. " It is 
implemented as a SEGMENT PROCEDURE Esee Section 3.33. (Fir the self- 
test, this must be linked into a qui z-running program. The formal quiz 
system dynamically links the unit at run time). A compiler include 
file Esee Section 1.63 supplies the applicable declarations for use by 
the author. This file must be included as the first line of the 
program. It includes program, constant, type, and procedure 
declarations. (The actual procedure bodies are compiled separately, and 
either linked or included from a library. ) The first author-supplied 
line is a SEGMENT PROCEDURE declaration for the outer block of the unit 
quiz. 

The unit consists of up to 25 "concept pools. " Each pool is 
implemented as a major procedure within the unit. The outer block of 
the unit should contain only initialization and pool selection 
statements. The support package tracks student performance on each 
pool, including which pools may still be selected. It is also aware of 
conditions for terminating the unit with overall passing or failing 
grades. It is up to the author, however, to determine when a concept 
pool has been passed or failed, and to report this fact. 

A concept pool may contain a number of repeatable and 
nonrepeatable variants. Again, the support package can select from 
these variants at random. 

Common input and output requirements may be simplified by the 
supporting procedures. Reading and evaluation of numeric responses 
(optionally including algebraic computation) is provided, as is 
solicitation of a yes/no answer. The author may pause for a student- 
determined period (system waits for a space or carriage return to be 
typed). The usual Pascal output formatting is available, extended 
somewhat by pseudo-files called viewports. A viewport is a rectangular 
screen region, onto which text and graphics may be displayed. 
Viewports automatically "wrap around" to the next line for text (both 
input and output). If the hardware is equipped with a readable text 
display buffer, text lines mt.. also be scrolled within the viewport. 
Graphics going outside the viewport will be clipped at its boundries. 
A current position is maintained for each open viewport, so that 
several different screen regions can be accessed concurrently. 
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************************************ *************** 
* DESCRIPTION OF AUTHOR PROCEDURES * * Section 5. 3 * 
♦♦a********************************* *************** 

Conventions for this document 

Variables named XLQ, YLO. XHI. YHI. X, and Y may be either 
INTEGER or REAL. XTEXT, YTEXT, XSCREEN, and YSCREEN must be 
integers. 

The INKCOLOR may be NONE (which will not affect the 
display), WHITE <make points visible "even on a green screen"), 
BLACK (make points invisible), or REVERSE (change the dot 
color). BLACK and REVERSE are available only on screens with 
selective erase capability. 

PICTURE is a string identifying a graphic display segment 
in the GRAFFILE for the unit. Until the graphic editor is 
released, this information is for planning purposes only. 

STREAM is in the subrange 1. . 25. Each value represents an 
independent random selector. Each stream may contain 
nonrepeating integers between 1 and 99. 

V indicates a VIEWPORT name. All input or output for the 

procedure will then use that viewport, which must have been 

opened. The author may also do normal READs and WRITES using 
any viewport. 



Viewport text and graphics 

OPENPORT p arameters to be described in later release opens viewport 
V. This feature will be documented when incorporated with the next 
standard release. 

UNETO (V, X, Y, INK) draws a line from the previous screen position to 
(X, Y). Lines which extend beyond the viewport boundary will be clipped. 

POLARLINE (V, SIZE. ANGLE, INK) draws a line from the previous screen 
position using polar coordinates. The line is drawn at ANGLE degrees for 
SIZE units. Lines which extend beyond the viewport boundary will be 
c 1 ipped. 



Page 225 



AXES (V, XLABEL, YLABEL, XSPACING, XHEIGHT, YSPACING, YHEIGHT, LIMITS) 
+ 7*1 h° OT lna ; ' V** f ° r thS indicated viewport. The LABELs are strings 
IL L J ! y t°l n ° lab6ls s P ecif y nul l strings. The X and Y SPACING 
til i.Lil TV. b ! twee ? **<; <or arid) marks on each axis; the HEIGHTS are 
the length of the tics (units of the other coordinates!!) Zero (or 

«!?!! , e T MT?e 9ht su P re f 5eS the ticS; (na *i<™"> coordinates will give a full 
?,i\i\ J" ? ^-^ b00l «n. If TRUE, the lower and upper limiting values 
will be displayed for each axis. 

DISPLAY (PICTURE) locates the PICTURE and displays it. 

NOTE: A graphics-based editor is now in the design stage It 
will create GRAFFILEs for this procedure. 



CLEARSCREEN erases the screen. Both text and graphics are erased. 
ERASEPORT (V) erases text and graphics from the specified viewport. 

out!u? E routint UE ' tT^V' 'l * s " eci * lized *.r. *«• of the real number 
output routine. It will not use scientific notation, and prints only two 
decimal places (rounded). NORMAL is a boolean, which, when true, w 11 
cause output in the standard character face. Otherwise, superscript 
characters will be used to display the number. P 

NOTE: There are two purposes for this routine. The real number 
formatter in the system does not always print numbers in the 
expected standard notation, and real-valued exponents are 
sometimes useful. The first problem should be cleared up 
shortly, and this procedure may be eliminated. 



Solicitation of Student. Responses 

YESNO (V, CONFIRM) is a boolean function which accepts a yes or no 
until a carriage return is typed. It returns TRUE if the response was 

m u?ti E , ( V ANDIDATE l C0RRECT) is * b °°l*a" function for concealed 
multiple choice questions. The CANDIDATE (type string) is displayed in 

cnLprT 1 " S r e ?" vie( "P° rt ' a ™ the st»«lent is given a «es/no I! . 
CORRECT is a boolean with the value TRUE if the candidate is a correct 

SIcT U ' i11 ^ TRUE lf the StudPnt response agrees w?th 
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EXPRESSION (V. OPTIONS. SOURCE) is a real function which evaluates the 
algebraic expression in the SOURCE string. It returns the value of the 
input expression. The student may use variables and functions which have 
been defined for the session. The permitted operations are 

4- addition 

- subtraction 

* multiplication 

/ division 

*> raise to power 

( ) group 

\ mod (arguments rounded to nearest integer) 

The built-in functions are 

sin. cosi tan 

standard trigonometric functions - RADIAN measurement 

log log (base 10) 

In natural log 

sqrt square root 

abs absolute value 

Predefined constants: 

pi 3. 14593 
e 2. 781828 

OPTIONS is a set of (NOTRIG, NOPOWERS, NOCOMPLICATED, NOCONFIRM). NOTRIG 
disallows sin, cos, and tan. NOPOWERS prohibits use of log. In, sqrt, and 
"". NOCOMPLICATED requires a simple numerical response (no operations). If 
NOCONFIRM is specified, the student will not be asked to verify a 
complicated expression. 

NUMERIC (V. OPTIONS, ANSWER, RANGE) is a boolean function for soliciting 
and evaluating numeric responses. It calls on EXPRESSION to evaluate an 
expression. If the student's answer is within RANGE of ANSWER, the 
function returns true. A negative RANGE indicates no numerical answer for 
the question. In this case, a correct answer must contain NO. N'T, NIL, 
NULL, or EMPTY. If the student does not respond correctly, the answer 
will be displayed, and NUMER1 " returns false. OPTIONS is as defined for 
EXPRESSION. 

PRESSRETURN (V) is a boolean function. It waits for the student to press 
the RETURN (or space or escape) key, then it clears the indicated 
viewport. PRESSRETURN is TRUE if the student pressed escape. 

READSTRING (V, OPTIONS, DELIMITERS, DATA) allows a line of input to be 
captured under control of the quiz system. The input is returned in the 
string DATA. 
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NOTE: This procedure has been totally replaced by ported READs 
.... this documentation is obsolete and nearly useless. 

OPTIONS is a set of <NOECHO. NQSHIFT, ONECHAR, NODELIM1TER. NOTAHFAD 
NOCOMMANDS, NOBLANKS). If NOECHO is set, the students fnutlill not be 
automatically displayed. NOSHIFT leaves input in its original case; 
otherwise all letters will be made upper-case. ONECHAR specifies that 
only a single character is to be read; otherwise a delimiter character 
7 ! r !™ 6 input - NODELIMITER removes the terminating character 
(except ONECHAR mode). If NOTAHEAD is specified, any queued input 
characters will be discarded. NOCOMMANDS disables the system directive 
mode. If NOBLANKS is set. leading and trailing blanks will be removed 
from the input. 

nMpJniJ ER V? a Set ° f characte " u "d to signal the end of input (if not 
uiMfcunAK mode/. 

If NOCOMMANDS is not specified, a number of system directives may be 
invoked by the student. These are all armed by the '#' character The 
command will be processed automatically, and only expected input will be 
L e .^I»S he callin 9 Program. These commands are available from YESNO, 
NUMERIC, and PRESSRETURN. The following are recognized: 

STOP the student wishes to terminate the session. Quizzes 
are marked stopped (not passed). 

count a summary of right and wrong responses is presented. 

NOTE the remainder of the line is captured as a comment for 
the instructor. 

HELP the HELLO picture (from STARTQUIZ) will be displayed 
again to remind the student of special notation and 
restrictions. 

MORE! (mostly a debugging function) allows the student to 
continue with the quiz until all the questions are 
exhausted. Once selected, this option may not be 
revoked. 



Pseudo-random Selections 



RANDOM (LO, HI) is an integer function returning a value LO <= RANDOM <- 



HI 



DEAL (STREAM) This integer function 



indicated strpam th 9 *? func *? on "turns an unselected entry from the 
MAKEPDo!? ST S EAM The /* lu « "HI »* between 1 and the stream size (set in 
nAKtiPUDL ) . Maximum value is 99. »=>=<» *■■ 



Page 228 



SELECT (POOL) is an integer-valued function used to select question pools. 
POOL will be selected if it is non-Jero. otherwise a random choice will be 
made from the available pools. This function also displays the question 
number and title on SCOREBOARD. 

RESETLAST (STREAM) makes the last choice in STREAM eligible to be re- 
selected. 



Reporting and Control Functions 

LOGIT (DIFFICULTY, GOTIT) records the response to a given question. GOTIT 
is a BOOLEAN: TRUE indicates a correct response. If GOTIT, a message will 
be generated equivalent to "good. " The DIFFICULTY is an integer between 
and 3. which determines how strong the message should be (3 is the 
strongest). If DIFFICULTY=0, no message will be displayed. The message 
is written to PROMPTLINE. 

GOOD (V, DIFFICULTY) displays "good" messages to the specified viewport. 
DIFFICULTY is an integer between 1 and 3, with 3 giving the strongest 
encouragement. 

MAKEPOOL (POOL, SIZE, RETRIES, DESCRIPTION) associates the string 
DESCRIPTION with the indicated question POOL. The title may not be longer 
than 20 characters. SIZE is the number of entries to be mads for DEALs 
from the associated random stream. Streams are limited to 99 entries. 
The pool selection mechanism permits a question to be missed and re- 
tried. RETRIES is the number of retries permitted before the question is 
eliminated. MAKEPOOL allows the question pool to be SELECTed. Should a 
random stream be required without a question pool, the DESCRIPTION must be 
an empty string. All MAKEPOOLs for actual question pools should appear 
before the STARTGUIZ call. This ensures that the student will be told the 
correct maximum number of questions to be presented. 



STARTGUIZ (MAXWRONG. ALLWRONG. MAXMINUTES, DOALL) initiates the quiz 
session and performs the necessary student handshaking procedures. 
MAXWRONG is the number of incorrect responses to fail. MAXMINUTES is 
the quiz time limit. The quiz will automatically terminate after the 
specified period. DOALL selects the quiz ending strategy. With DOALL 
false, the quiz may be terminated after MAXWRONG incorrect answers. 
DOALL true continues the quiz until all questions have been eliminated. 
A future version will open the graphics file associated with the unit, 
and display the HELLO picture, if any. 
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QUIZDONE is a boolean function. It determines <from the STARTQUIZ 
parameters) when a quiz is concluded. It will either return FALSE (not 
done) or report the quiz result and stop the program. Before returning 
"!, ?"* hor P™9ra«>, QUIZDONE performs a PRESSRETURN using 
PROMPTLINE, and a CLEARSCREEN. The quiz will abort if the stud-nt 
escapes at this time. 
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a********************************************* *************** 
* DESIGNING , (AND DOCUMENTING) A LESSON FRAME * * Section 5. 4 * 
********************************************** *************** 



(1) Educational Goal and Method 

First, you should decide the general goal or topic of the frame. State 
this goal in the context of the unit. Next, find an approach to achieve 
the goal. This should indicate the type of question, kind of response 
requiredi and feedback for the student. Non-obvious scoring should be 
explained. Notice that so far you haven't said anything about automation. 

<2) Programming Analysis 

Now you want to describe a stategy for generating the questions and 
feedback. When necessary, this may be partially in terms of the 
implementation. Only the major mechanisms should be covered here. 

(3) Animation 

Lay out the screen format. Block out a number of viewports. Show their 
relative position, size, and contents. Spend some time on thiss make it 
attractive and convenient to watch. Consider using lines and boxes to 
dramatize the spatial design. 

(4) Coding 

Now you have developed a functional spec. The coding will be a relatively 
direct matter in most cases. The specification will also serve as the 
main documentation for the frame. Add notes to explain coding tricks and 
funny variables. 

In testing situations, think in terms of "question generators. " These are 
procedures which can create many variations of the same basic problem. The 
question generator may have some options, set via parameter, to allow one 
generator to serve in more t. an one frame. The generator itself should 
rely on random numbers and pools. Question generators should return the 
correct answerCs) to their caller. 

As usual, the frame main procedure should be short. Call on local 
procedures for lengthy calculations or screen formatting. 



Sections 1 through 4 indicate successive job steps. Work may be delegated 
after any step. 



Page 231 



SAMPLE DOCUMENT 
« any similarity to existing programs, living or dead, is purely incidental > 

UNIT 1 - QUESTION i 

TITLE: <identifier>s 

APPROACH: 

The student states whether or not various character strings are 
<identifier>s. If the student answers incorrectly, the right answer 
will be given. 

Remarks, such as "spelling is irrelevant." "lower case prohibited," 
"must start with a letter," "spaces not permitted," etc., should be 
displayed a* appropriate. 

SCORING: 

Question pass - 10 in a row correct Question fail - total of 5 wrona 
May be repeated once. 

STRATEGY: 

A selection of one from a group of 50 pre-determined strings will be 
made. A remark and correctness is associated with each string. 

SCREEN FORMAT: 

question/ 
answer 

instructions 

remarks 



NOTES 

both VALIDCI3 and INVALIDCI3. 



Two lists of 25 strings are kept. One contains only valid 
J 1 ?!",^^^?' the other ' onl y invalid. C0MMENTCI3 corresponds t. 
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********************************** 

*PROCTOR'S GUIDE TO BOOKKEEPER* 

********************************** 

a special version of the Pascal *«™ "*" cou se5 taught at UCSD. 
keeping for the self- '"■'"T'cSp™!™ v description of this 
This document is currently » m 6 S a bove title suggests, an 
bookkeeping system, but is n "J "J h * current form , thi5 
introductory user guide to PJ«^J- *J sections each of which covers 
document is ^ganized as a ^okkeeplng system. These sections describe 
a particular a5 P ec */! h f * ^ep^a system which new proctors would 

any information on maintenance of the system. 

The software described by this document is not J^J^J^JJ th# 
I<4 rel J e of the U.C.e.D. Pascal System, ^Uhough^t is cur^J,^ 

con^^bf thetime'of the next release of the system. 

>»»» ATTENTION WINTER 1978 PROCTORS ««« 

HAVE BEEN MADE TO THESE SECTIONS. 

*********************************;* 

♦TOPICS DISCUSSED IN THIS DOCUMENT* 
*********************************** 

1 BOOTSTRAP PROCEDURE 

2' CARE OF BOOKKEEPING DISKS 

l Transitions i-gn and udpdatino of student REC«i» 

5 MESSAGES FOR PkOCTORS IN A STUDENT S RECORD 

6 SELECT COMMAND 

I adSiwstrat.on and record:* of factual .automated and 

, bSES*!* cSKM'lvMJUAT.aN <CAFE, ENTRY 

!?'; SSKrFpSJS" "« 5SES.H. svste* 

i. BOOTSTRAP PROCEDURE ^ntieal for both of the 

The bootstrap proc.dur. » *JJJ^ e J at different disks are 

bookkeeping machines, wlth . the m ""ne??Je machine with the two disk 
US ed. On the main ^ok eepxng machine<the ma hxn^^ ^ .^ ^^ 

dri ves) "• * h - J;* 11 " 1 l;; n °SI !iilo«in B line. should appear: 
amount of click ing, ^J-^*^ Master System I, 3 
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Enter today's date: <1. . 31>-<UAN. . DEO-C00. . 99> 



> 



cohort ?2f y ^ * th V ach1 "^ to this state, you should enter the 
correct date and tame in the manner indicated. Note that bookkeeoer 
asks you to verify that the date and time are correct immediately^ ter 
they are entered just in case you make a typographical error 
hB .. The date and the time are vital to the correct operation of the 
bookkeeping process, and therefore we ask that you be veru 
concientious about entering them correctly. 

After the date and the time have been successfully entered th» 
screen should clear and the following prompt should appeal 

?m,7H?r T < trans f c *' /<»**' Maintain, 0(ption, U(tility, Q(uit 

number »f "r, "u*"* *£** th * d * 5 k UiU P^form a substantial 
number of 'clicking" operations as the master bookkeeping files are 

"unlock" ^r»rront aVe ^ ^^ '* thiS Stafl " V™ «"1 h-" Vo 
below P aS described in the s^tion called SECURITY 

2. CARE OF BOOKKEEPING DISKS 

a „ nn4 . I5V Uks "!! ieh Wil1 reside in the lab for bookkeeping purposes 
are not to be used for any other purpose, and should be used onlu in 

trlcTol a^%K hXCh , are desi S nated a * bookkeeping machines YoC s " 
proctor are the only person who should be handling these disks. 

in use P1 Also J^t*?!" ^k^ ^^^ thelr flopp « envelopes when not 
.«..««!' r,S"*K t .i MV « th ese disks lying around on desk tops where 
Unit V * h lther . S1 ^ ° n th6m ° r Place something heavy on them In 
short, keep these dis*s in the drawer where they belonn 

MOm^^SSSS^ ™° lnPDRTAm ^^lONS CONCEDING THE MAIN 

1. DO NOT REMOVE THE DISK FROM THE BOTTOM DRIVE ON THiej MAruTwc 

Vn L o?L IT IS A DIRE EME ^ENCY THAT YoS D 5 SO >. T Ie DON^ WANT 
TO RISK GETTING BAD BLOCKS ON THAT DISK 

2 * n^ E ^? HUTTINS THE SY STEM DOWN FOR THE NIGHT, DO NOT JUST POWER 
OFF THE MACHINE. USE BOOKKEEPER'S Q(uit COMMAND FIRST 
(This saves the transaction logfile which is lost if the Gtuit 
command is not used) uluu 

3. SECURITY 

, l ., ,^ St after be ing bootstrapped, bookkeeper's front Danel i « 

altered T "T TJJ U l0Cked ' reC ° rdS M « '• "-JinU. 'b CJ n 
c^InH' T? rl? Cl< the fr ° nt Pane1 ' a P^^tor must use a hidden 
command called S<ec. S(ec responds with the following prompt!".- 

Sec: N(ew, CCurrent, Q(uit 
us>d to fifll'Ih displays the c^rent security level number. N(ew is 

with tL 2 ?T 6 passW0T,d foT " a new security level. N(ew responds 
with the following promptlino: responas 

Enter new sec followed by CRET3 

Note th*?°fh kee r r *! nDW u,aitir, 9 foT1 y°" t° type in your password 
screen U characters that you type will not be echoed back ?o the 
RETURw\ D v y ° U ^f Ve ^"Piotely typed in your password press the 

IS™ JhTfonowrng 1 !^ " h " th " " "'* "«"" <"< ™ •"■P^« - 

Sec changed to 1 
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You should see a "1" instead of a zero. If you don't succeede 
the first time gou may try again as many times as you like. 

Once you have accomplished your task of unlocking the front 
panel you may use the QCuit command to exit the security changer and 
return to the main part of bookkeeper. 
NOTE: Even after the front panel has been unlocked in the manner 

described above, there will be certain commands listed on the 

promptlines of bookkeeper which will not be allowed to you. 

These particular commands are reserved for persons who are 

maintaining the bookkeeping system, or who have a thorough 

understanding of how the program operates. 
4. TRANSACTIONS UPON AND UPDATING OF STUDENT RECORDS 

Changes to a students record can be made by entering T(ransact 
mode. You must then identify the student whose record you wish to 
update. To do so you may either type in the name or you may type in 
the student's bookkeeping number. If the name you type is not the name 
of a person in the file, then bookkeeper will display a short list of 
names which are closest to the name entered. The F<orward command 
will cause successive groups of names which are progressively higher in 
the alphabetic sequence. In a similiar manner, the B(ack command 
allows you to examine the student roster in the opposite direction. 

Once you have successfully identified which student record you 
wish to update bookkeeper will display the contents of the record and 
then display the following promptline: .... 

(unit #), C(hange, SCelect, A<uto, Z(ap, F(orfeit, E(xam, G(rd, message, G(uit 

Most often you will want to record a homework taken, or the 
passing of a quiz. To do so, you first enter the unit number followed 
by the items that you wish to add to the student record. Once you 
enter the first digit of the unit number the following promptline will 

SPPe Unit # & A-J(quiz) or W(hmwk) or P(ass), CSP3 to accept, CESC3 to abort 

As the above promptline suggests, the letters A-J will be used 
to record quiz versions taken. We will adopt the convention that the 
letter A will be used to record a student as having passed an automated 
"factual" quiz, while the letters B-J will be used to record versions 
of the programming quiz taken by the student. The letter W will as in 
past quarters signify that the student has completed the homework for 
the unit. " P " will be used to indicate that the student has passed 
one of the programming quizzes for that unit. In the case where a 
particular unit does not have either a factual quiz or a programming 
quiz, the proctor should jus' fill in the "A" and "P" fields of that 
unit as necessary in order to convince bookkeeper that the unit has in 
fact been completed. <Note that the units requiring this special 
treatment tend to change from quarter to quarter). 

As you will probably notice when you start to use this system, 
the bookkeeper software displays warning "flags" next to units that it 
believes have not been completed by the student prior to advancing to 

later units. (The "flaq" is the appearance of "C Warning !" to the 

right of the display for the unit) These warning flags are intended to 
catch the eye of the proctor so he/she can investigate the reasons for 
the "holes" in the students record. 
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Below are some example bookkeeping entries and explanations of 
what they instruct the bookkeeping system to do- 

3AWP4ADWP instructs bookkeeper to record that the student has passed 
the automated quiz, the homework, and the written quiz 
for unit 3. The rest of the command string indicates 
that the student has passed the automated quiz, the 
homework, and written quiz D for unit 4. 
Once you have entered a command string similiar to the one in 
the example above, you may cause the students" record to be updated by 
typing either spacebar or RETURN. If you make an error you may 
backspace over your errors, and try again, or you may hit ESC to throw 
away the comnand sequence and start all over again 
5. MESSAGES FOR PROCTORS IN A STUDENT'S RECORD 

Associated with each student record is an optional 50 character 
message which can be used by proctors to communicate to one another any 
unusual circumstances concerning any particular student. If a message 
is already present then the flag " *** MESSAGE #** " will appear in 
the upper right hand corner of the display of the student's record You 
may view this message using the MCessage command. To change the 
message, or remove a message, you must enter the change mode by using 

rlnfJnlr 9 ! " mmSn ° nC ! in the Change mode ' « ou ^quest to change the 
contents of the message by using the M<essage command. 

6. S(elect COMMAND 

The S(elect command is a means whereby the proctor can ask the 
bookkeeping system to randomly pick a version of a quiz for a 
particular unit. 

7. Z(ap COMMAND 

. f?P a Hows you to selectively erase mistakes that have been 
made in the process of making transactions upon a students record. Zap 
allows you to enter the items which you want erased in exactly the same 
manner as items are made part of the student's record 
t i. » T ° 6raSe the " Aut0fflatec l Quiz Taken" and "Programming Quiz 

and e then e ^n» e "A« r ° m ZJ* Tt * CUl *J Unit ' firSt indi "te the unitnumber 
and then type "A" or »P" respectively. One can think of this two 

"" a9 " as cov r!'" Which caveT - u P Portions of the display for that 

" ' Whe " °" e °* these messages is present, a zap command which 
includes the corresponding letter (i.e. "A" or »P"> will cause the 
intacJ" 9 meSSage to be removed < leaving the underlying information 

8. ADMINISTRATION AND RECORDING OF FACTUAL (AUTOMATED) AND PROGRAMMING QUIZZES 

To give a student an automated quiz, first go into Transact 
and bring the student's record onto the screen. Then use the ITulo 
tfTscJeen ^^ reSp ° nd with the 'allowing prompts at the top of 

Automated Quiz Administration: 

Enter unitnumber for quiz > 

Once you are at this stage, enter the number of the ui.it 
desired followed by a carriage return. (If you just type RETURN then 
you will return to the normal transaction level') Once you type in Ihe 
unitnumber, the following prompt will appear: P 
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Enter quiz version desired > 

Quiz version "A" has been designated to record the taking of a 
"factual" or Automated quiz, while quiz versions "B" thru "J" ars used 
to indicate the taking of one of the programming quizes for that unit. 

Once you type in the version letteri the quiz disk in the top 
drive will be "armed" or enabledi and the students record number is 
written onto the quiz diski along with the unitnumber and quiz version 
to be administrated. If an I/O error occurs during the transfer of this 
information onto the quiz disk! then the following message will appear: 

Error: No Quiz Disk In Drive ! 

In addition< the students record is updated to show that he/she 
has been given a quiz disk. On the display of a students record) this 
shows up in the form of one of the following messages: 

"Automated Quiz Taken" or "Programming Quiz Taken" 

Note that the above message appears on the display in the ares 
normally used either for quizzes or other purposes . When the student 
brings the quiz disk back, this message will disappear. If the disk is 
not returned, then the message will remain in the display of th 
student's record until the zap command is used to erase this message. 
(Bee the section of this document describing the Zap command for 
details) 

When the student returns from the quiz room with the disk, you 
should place the disk into the top drive, return the bookkeeper system 
to the Bookkeeper: level, and then use the A(uto command at that level. 
The A(uto command should give you the following prompts: 

Automated Quiz Record Retreival: (type ESC to escape) 
Place quiz disk into top drive and press RETURN 
As before. ESC will cause you to return to the Bookkeeper: 
level, whereas RETURN instructs bookkeeper to attempt to read a quiz 
report from whatever disk in the top drive. If you type RETURN the 
bookkeeping system first checks to see that you have in fact placed a 
disk into the top drive. If it discovers that there is no disk in the 
top drive then the followina error message should appear on the screen: 

Er.or: No Quiz Disk In Drive i 
However, please note that whatever disk you put into the top 
drive will top drive mill be interpreted as a quiz disk! If you place 
any other disk than a quiz disk into the top drive you will probably 
see the screen fill with garbage characters, which typically kills the 
system, thus requiring that you bootstrap the system again. 

If you do in fact have a quiz disk in the top drive, then you 
will receive a quiz report on the screen which gives you information as 
to what occurred in the quiz room. (Further discussion of the contents 
of this report is beyond the scope of this document) 

When you are finished looking at the quiz report, hit the 
spacebar. Bookkeeper will then enter the Transaction level and display 
the updated student record. This allows you to inspect the record and 
verify that the bookkeeping system has updated the record correctly. 
Please note that the recording of the passing of automated quizzes is 
done automatically by bookkeeper. 
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IMPORTANT: EVEN IF A STUDENT FAILS A QUIZ, YOU SHOULD STILL 

TAKE THE TINE TO GO THROUGH THE ABOVE PROCEDURE IN 
ORDER THAT THE BOOKKEEPING SYSTEM CAN RECORD THE 
FACT THAT THE QUIZ DISK WAS RETURNED BY THE STUDENT 
OTHERWISE, THE STUDENTS RECORD WILL STILL CONTAIN 
EITHER THE "Automated Quiz Taken" OR THE 
"Programming Quiz Taktm" MESSAGE, WHICH IS MEANT TO 
INDICATE THAT THE STUDENTHAS A QUIZ DISK IN HIS 
POSSESSION. 
9. SETTING THE COURSE EVALUATION (CAPE) ENTRY 

♦■h* «+.,A E rJZ 5t " d f"* rec ^ d has one bit which indicates whether or not 
r*L A e ^. ha !.f lUed OUt a CAPE bourse And Professor Evaluation) 
card. If this bit is not set then the message "CAPE CARD NOT COMPLETED" 
will appear as part of the display of the student record. Note that a 
student is not required to fill out one of these cards. This CAPE card 
indicator ^primarily intended to promote a larger response by 

«et r Jilied ! P Zl Ct ° t ri S attention t0 the *«t that the student has not 
yet filled one out. (The proctor can then ask the student if he/she 
would mind filling out one of these cards. ) ne/she 

onf „ 4 .J° / ,*" rn ° f f th f " CAPE CARD N0T COMPLETED" message you must 
enter the C hange level by typing "C" from the Transaction level Once 

which^il?, T'J! 0U use * he E<val (sh ort for "evaluation") command, 
Si ?Jr mP ly SSkS * h * P roctor tether or not the student has completed 
tni »£" for r no y ' responds *° this question by typing "Y« for yes, 

iSinee *fee XS*R£ ^urvmy is iperVvvmad utimtng ■*** A*** few weeks of 
the quarter the -CAPE CARD NOT COMPLETED- prompt will net appear until 
Si El 1 !!!* 1 "" ^e bookkeeping system sets an option which informs 
the bookkeeping system that CAPE is in season. 

10. COMMENTS ON PAPER GRADE RECIEPTS 

Xt *! im P° rt ant that all of the proctor's realize that the 

student on the quiz or homework for a unit serve as the ultimate means 
of backing up the bookkeeping system. Also if any dispute ar Sver 
the legitimacy of the records maintained on the bookkeeping machine, 

ThIrIfIr« le S tS r S L beU5ed t0 Verlfy the r0C ^ ds in the computer 
Therefore, due to the important role assigned to these grade receipts, 

ILSJ-m""*" 1 ' at thBy be fiUed ° Ut »»Pl-tM«. nea?ly, and P 

a f i.. * WhSn f j 11 l nq out these reciepts, please sign the receipt using 
at least your last name, don't just use your initails as your signature 
since initials are easily forged. Also make sure that the" inf o 

IndSl 11 • «, "mplcte, especially important are the student's name 
and bookkeeping icentif ication number. 
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11. UTILITY PROGRAMS IN THE BOOKKEEPING SYSTEM 

Included within the bookkeeping system is a set of utility 
programs which allow proctors to do non-bookkeeping activities on the 
same machine on which the bookkeeping system is running. 

The following is a list of utilities not provided in the current 
version of the systom: 

Scheduler -(not enough space inside master bookkeeping 
machine) 

W(aiting -(not yet fully developed) 

P(rinter -(currently a utility program running on the Terak 

connected to the printer. See document "How To Get 
Listings" for details) 

F(iler -a modified version of the standard system 

filer. Does not allow one to remove or create 
files on the bookkeeping disks. Also does not have 
a T(ransfer command, due to lack of space. Z(ero 
command is more intelligenti and won't allow you to 
zero the bookkeeping disks. 

T(ransfer -program which accomplishes the same result as the 
T(ransfer command in the standard system filer. 
Note that this Transfer program is oriented for 
operation on a single drive machine, and therefore 
prompts you to place either the source or 
destination disk into the drive, depending on what 
disk it requires. The reason for the disk swapping 
is again due to a lack of memory space. If you 
accidentally place the wrong disk into the drive, 
an error message is written and the transfer is 
aborted. If there is insufficient room on 
the destination volume, then a 

warning message is written and the transfer is 
aborted. 

Current version of T(ransfer will cause the entire 
bookkeeping system to go out to lunch if you 
attempt to use PRINTER: as the destination file. 
Also, T(ransfer insists that you provide the volume 
name when entering the filename. 
You exit the T(ransfer program by just typing 
RETURN in response to the "Transfer what file ?" 
prompt. 
(Calculator -Dale Ander's calculator program. This is 

generally a very useful program, but it is a 
potential hazard to the bookkeeping system. 
Particularly troublesome are the floating point 
math errors which occur when you attempt to use the 
exponentiation operator in a careless manner. 
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♦EXECUTION ERRORS* *TABLE 1* 
***#****#■*»*»#*#** *#****#*# 

Version I. 4 January 1978 



System error FATAL 

1 Invalid index, value out of range (XINVNDX) 

2 No segment, bad code file (XNOPROC) 

3 Procedure not present at exit time <XNOEXIT> 

4 Stack overflow (XSTKOVR) 

5 Integer overflow (XINTOVR) 

6 Divide by zero (XDIVZER) 

7 Invalid memory reference Cbus timed out> (XBADMEM) 

8 User break (XUBREAK) 

9 System I/O error (XSYIOER) FATAL 

10 User I/O error <XUIOERR) 

11 Unimplemented instruction (XNOTIMP) 

12 _ Floating point math error (XFPIERR) 

13 String too long (XS2L0NC) 

14 Halt/ Breakpoint <uiithout debugger in core) (XHLTBPT) 

15 Bad Block 



All fatal errors either cause the system to rebootstrap, or if 
the error was totally lethal to the system, the user will have to 
reboot. All errors cause the system to re-initialize itself (call 
system procedure INITIALIZE). 
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************ *********** 
*IORESULTS * * TABLE 2 * 
************ *********** 

Version I. 4 January 1978 



No error 

1 Bad Block. Parity error <CRC) 

2 Bad Unit Number 

3 Bad Mode. Illegal operation 

4 Undefined hardware error 

5 Lost unit. Unit is no longer on-line 

6 Lost file. File is no longer in directory 

7 Bad Title, Illegal file name 
B No room, insufficient space 

9 No unit. No such volume on line 

10 No file. No such file on volume 

11 Duplicate file 

12 Not closed, attempt to open an open file 

13 Not open, attempt to access a closed file 

14 Bad format. error in reading real or integer 
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*************** *********** 
* UNITNUMBERS * * TABLE 3 * 
*************** *********** 

Version I. 4 January 1978 



NUMBER VOLUME NAME 

<empty> 

1 CONSOLE 

2 SYSTERM 

3 GRAPHIC 

4 f loppy 

5 floppyl 

6 PRINTER 

7 available - <unimplemented> 

8 REMOTE <reserved for future use) 

9 blocfcl 

10 block2 

11 block3 

12 block4 

Devices 9 - 12 are block-structured devices* in most cases <RK-05). 
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************* *#********•* 
» PENSTATES * * TABLE 4 * 



Version I. 4 



January 1978 



DRAWL I NE: 



PENUP (picture will not change) 

1 PENDOWN (force bits on) 

2 ERASER (force bits off) 

3 COMPLEMENT ( XOR bits) 

4 RADAR (scan for obstacle) 



DRAWBLOCK: 

1 
2 
3 



OR <paint source onto destination} 
COPY <source goes to destination> 
COMPLEMENT <inverted source goes to destination> 
EXCLUSIVE-OR <source exclusive-or destination goes 
to desination> 
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*TABLE 5* *SYNTAX ERRORS NOT FOUND IN JENSEN AND WIRTH* 
Version I. 4 January 1978 



ERROR # MEANING 

398/399 Implementation restriction. 

400 Illegal character in the source text. 

401 Unexpected end of input file. 

402 Error in writing code file. 

403 Error in reading an include file. 

404 Error in opening info. list or code file 



The syntax errors this compiler gives are not the best it can 
do. When time comes available to do so. the error generation of the 
compiler is going to be seriously re-vamped. 
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* TABLE 6 American Standard Code for Information Interchange * 



000 00 NUL 

1 001 01 SOH 

2 002 02 STX 

3 003 03 ETX 

4 004 04 EOT 

5 005 05 ENQ 

6 006 06 ACK 

7 007 07 BEL 

8 010 08 BS 

9 Oil 09 HT 

10 012 OA LF 

11 013 OB VT 

12 014 OC FF 

13 015 OD CR 

14 016 OE SO 

15 017 OF SI 

16 020 10 DLE 

17 021 11 DC1 

18 022 12 DC2 

19 023 13 DC3 

20 024 14 DC4 

21 025 15 NAK 

22 026 16 SYN 

23 027 17 ETB 

24 030 18 CAN 

25 031 19 EM 

26 032 1A SUB 

27 033 IB ESC 

28 034 1C FS 

29 035 ID GS 

30 036 IE RS 

31 037 IF US 



32 040 20 SP 

33 041 21 ■ 

34 042 22 " 

35 043 23 # 

36 044 24 * 

37 045 25 X 

38 046 26 & 

39 047 27 ' 

40 050 28 < 

41 051 29 ) 

42 052 2A * 

43 053 2B + 

44 054 2C , 

45 055 2D - 

46 056 2E 

47 057 2F / 

48 060 30 

49 061 31 1 

50 062 32 2 

51 063 33 3 

52 064 34 4 

53 065 35 5 

54 066 36 6 

55 067 37 7 

56 070 38 8 
5** 071 39 9 

58 072 3A 

59 073 3B j 

60 074 3C < 

61 075 3D = 

62 076 3E > 

63 077 3F ? 



64 100 40 3 

65 101 41 A 

66 102 42 B 

67 103 43 C 

68 104 44 D 

69 105 45 E 

70 106 46 F 

71 107 47 G 

72 110 48 H 

73 111 49 I 

74 112 4A J 

75 113' 4B K 

76 114 4C L 

77 115 4D M 

78 116 4E N 
89 117 4F 

80 120 50 P 

81 121 51 Q 

82 122 52 R 

83 123 53 S 

84 124 54 T 

85 125 55 U 

86 126 56 V 

87 127 57 W 

88 130 58 X 

89 131 59 Y 

90 132 5A Z 

91 133 5B C 

92 134 5C \ 

93 135 5D 3 

94 136 5E * 

95 137 5F _ 



96 140 60 v 

97 141 61 a 

98 142 62 b 

99 143 63 c 

100 144 64 d 

101 145 65 e 

102 146 66 f 

103 147 67 g 

104 ISO 68 h 

105 151 69 i 

106 152 6A j 

107 153 6B k 

108 154 6C 1 

109 155 6D m 

110 156 6E n 

111 157 6F o 

112 160 70 p 

113 161 71 q. 

114 162 72 r 

115 163 73 s 

116 164 74 t 

117 165 75 u 

118 166 76 v 

119 167 77 u> 

120 170 78 x 

121 171 79 y 

122 172 7A z 

123 173 7B < 

124 174 7C i 

125 175 7D > 

126 176 7E 

127 177 7F DEL 
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Tatle 1 SYNTAX DIAGRAMS 



<ldentlfler> 




(letter) * 



/dlgltV 



<unstgned lnteger> 




<unslgned number> 



unsigned Integer 




I 




u 



-©— 




7* 



unsigned Integer 



P.-iye P.2S3 



<ur\slgned constant> 



constant L dent trier 



unsigned number 




NIL 



<DH 




character 




~7 * 



<constant> 




Vi>(fc: ;:<& 



<slnp\e type> 



type Identifier 



*\T) j 4 Identifier 



o 



-0- 



constant 



-G— 4 



constant 



<fle\d \lst> 



-G> 



-Q- 



— J»_ identlflei UQ__ t 



J 



^(caszV* 



Identifier -*(7)— ^* 



type Identifier 



L 



■*{Q?P 



-d> 



| constant 



<D-0- 



fle\d Ust 



— *Qy~^ 



p..ttjif ;..'S5 



<type> 




P;jgu 256 



<varlab\e> 



variable Identifier 



->itr 



fle\d Identifier 



'-*©-?* 



expression 



T*®-" 



<l> 



o~ 



field Identifier 



<t> 



<slnp\e express ton> 




tern 



tern* 



<tern> 



factor 





* 1 ( / DIV (MUD 




"5)0 



P.jtjL- 2S? 



<factor> 



unsigned constant 



variable 



function Identifier 




expression 



<D- 




<<> 



expression 



O 




HUT ) » factor 



•—(D- 



>~* 



expression 



& 



expression 



*vD — 



o 



F J aqe ^'58 



<expresslon> 




<paraneter Ust> 





jjj 



< \_* T _ nr » Identifier 






type Identifier 



JV) 



KD- 



— (7> — 



p.-ic)^ ass 



<£.tfttenenL> 




Pa 36 ?60 




-*T VAR J-ff— • Identifier -. — ><T) ► type 

k r\ — 1 



o~ 



-G> 



(Jy — b\ P ck|« — ([)*- 



^prucedure)— 
•^uicticjm)-* 



Identifier 



parancter Ust 



identifier 



paraneter list 



} 



Qd— 



type Identifier 



BEGIN}-, — • statenent 




<D- 



-K EMD 



> 



<proflran> 



(pRPKRAm * Identifier «<T) -block! ^7) 



f^se 26* 



ItError in simple type 

2: Identifier expected 

3: 'PROGRAM' expected 

4,: ' ) ' expected 

5: ' : ' expected 

6: Illegal symbol (maybe missing ' ; ' on the line above) 

7:Error in parameter list 

8: 'OF ' expected 

9: * ( ' expected 

10: Error in type 

"11: * I * expected 

12: ' ] ' expected 

13: ''END 1 expected 

14: ' : ' expected 

15: Integer expected 

16:'=' expected 

17: 'BEGIN' expected 

18: Error in declaration part 

19:error in <field-list> 

20: ' . ' expected 

21: '* ' expected 

50:Error in constant 

51: ' :=' expected 

52: 'THEN' expected 

53: 'UNTIL' expected 

54: 'DO' expected 

55: 'TO' or 'DOWNTO' expected in for statement 

56: 'IF ' expected 

57: 'FILE' expected 

58:Error in <factor> (bad expression) 

59:Error in variable 

101: Identifier declared twice 

102: Low bound exceeds high bound 

103: Identifier is not of the appropriate class 

104;Undeclared identifier 

105: sign .not allowed 

106:Number expected 

107:Incompatible subrange types 

108: File not allowed here 

109:Type must not be real 

110:<tagf ield> type must be scalar or subrange 

111: Incompatible with <tagfield> part 

112: Index, type must not be real 

113:Index type must be a scalar or a subrange 

114:Base type must not be real 

115:Base type must be a scalar or a subrange 

116: Error in type of standard procedure parameter 

117:Unsatisif ied forward reference 

118:Forward reference type identifier in variable declaration 

119: Re-specified params not OK for a forward declared procedure 

120:Function result type must be scalar, subrange or pointer 

12-1: File value parameter not allowed 

122:A forward declared function's result type can't be re-specified 

123:Missing result type in function declaration 

124:F-format for reals only 

125:Error in type of standard procedure parameter 

126:Number of parameters does not agree with declaration 

127: Illegal parameter substitution 

l28:Result type does not agree with declaration 

129:Type conflict of operands 

130:Expression is not of set type 

131:Tests on equality allowed only 

132:Strict inclusion not allowed 
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135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17 
171 
172 
173 
174 
201 
202 
203 
204 
250 
251 
252 
253 
254 
256 
257 
258 
259 
300 
301 
302 
303 
304 
398 
399 
400 
401 
402 
403 

AM A 



of operand must be boolean 
:Set element type must be scalar or subrange 
:Set element types must be compatible 
:Type of variable is not array 

: Index type is not compatible with the declaration 
slype of variable is not record 
:Type of variable must be file or pointer 
: Illegal parameter solution 
: Illegal type of loop-control variable 
: Illegal type of expression 
:Type conflict 

: Assignment of files not allowed 

: Label type incompatible with selecting expression 
rSubrange bounds must be scalar 
: Index type must be integer 

Assignment to standard function is not allowed 
: Assignment to formal function is not allowed 
:No such field in this record 
:Type error in read 

:Actual parameter must be a variable 
:Control variable cannot be formal or non-local 
:Multidef ined case label 
:Too many cases in case statement 
:No such variant in this record 
:Real or string tagfields not allowed 
^Previous declaration was not forward 
: Again forward declared 
:Parameter size must be constant 
:Missing variant in declaration 
:Substition of standard proc/func not allowed 
:Multidef ined label 
:Multideclared label 
: Undeclared label 
: Undefined label 
:Error in base set 
: Value parameter expected 
: Standard file was re-declared 
:Undeclared external file 
: Fortran procedure or function expected 1 
: Pascal function or procedure expected 
: Error in real number - digit expected 
-.String constant must not exceed source line 
:Integer constant exceeds range 
:8 or 9 in octal number 
:Too many scopes of nested identifiers 
:Too many nested procedures or functions 
:Too many forward references of procedure entries 
: Procedure too long 

:Tdo many long constants in this procedure 
:Too many external references 
:Too many externals 
:Too many local files 
: Expression too complicated 
: Division by zero 
:No case provided for this value 
: Index expression out of bounds 
rvalue to be assinged is out of bounds 
: Element expression out of range 
implementation restriction 
: Implementation restriction 
: Illegal character in text 
: Unexpected end of input 

:Error in writing code file, not enough room 
:Error in reading include file 
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